X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fstring.lisp;h=04aa7f1ac2ba048a6ae11f17cb3481fe9607ba8c;hb=eea0329f003d1e90a1e76a282edb978186a9ef58;hp=1aa09ace78794dcfd7cdb3017ca422f318107124;hpb=26af6f56fc615a008c3f433265ccecbfce815a61;p=jscl.git

diff --git a/src/string.lisp b/src/string.lisp
index 1aa09ac..04aa7f1 100644
--- a/src/string.lisp
+++ b/src/string.lisp
@@ -29,8 +29,8 @@
   (let ((g!string (gensym))
         (g!index (gensym))
         (g!value (gensym)))
-    (list (list g!string g!index)
-          (list string index)
-          (list g!value)
-          `(aset ,g!string ,g!index ,g!value)
-          `(char ,g!string ,g!index))))
+    (values (list g!string g!index)
+            (list string index)
+            (list g!value)
+            `(aset ,g!string ,g!index ,g!value)
+            `(char ,g!string ,g!index))))