diff --git a/examples/project.carp b/examples/project.carp
index 006c576e..ffcbf3c6 100644
--- a/examples/project.carp
+++ b/examples/project.carp
@@ -6,7 +6,7 @@
 
 
 
-(defn f []
+(defn fsdfdsf []
   (str* "hej" "san" "svej" "san" "!"))
 
 
diff --git a/lisp/generics.carp b/lisp/generics.carp
index a1d82caf..d6877b04 100644
--- a/lisp/generics.carp
+++ b/lisp/generics.carp
@@ -342,14 +342,16 @@
 
     x (error (str "Can't build generic primop for '" x "'"))))
 
-(defn instantiate-str-for-string [c-func-name]
-  (let [proto (str "API string " c-func-name "(string s)")
-        c (str proto "{ return strdup(s); }\n")]
-    {:proto proto
-     :c c
-     :deps ()}))
 
-(defn instantiate-prn-for-string [c-func-name]
+
+;; (defn instantiate-str-for-string [c-func-name]
+;;   (let [proto (str "API string " c-func-name "(string s)")
+;;         c (str proto "{ return strdup(s); }\n")]
+;;     {:proto proto
+;;      :c c
+;;      :deps ()}))
+
+(defn instantiate-str-for-string [c-func-name]
   (let [proto (str "API string " c-func-name "(string s)")
         c (str proto " {\n"
                ;;" printf(\"calling str on string '%s'\\n\", s);\n"