Removed 'append' from runtime lib since Daniel Gackle provided a more concise macro...

[clinton/parenscript.git] / src / compilation-interface.lisp

diff --git a/src/compilation-interface.lisp b/src/compilation-interface.lisp
index 3916528..8ba868c 100644 (file)
--- a/src/compilation-interface.lisp
+++ b/src/compilation-interface.lisp
@@ -17,12 +17,13 @@ to a JavaScript string at macro-expansion time."
     (ps1* ps-form)))
 
 (defun ps1* (ps-form)
-  (apply #'concatenate 'string
-         (mapcar (lambda (x)
-                   (if (stringp x)
+  (with-output-to-string (s)
+    (mapc (lambda (x)
+            (princ (if (stringp x)
                        x
-                       (eval x)))
-                 (parenscript-print (compile-parenscript-form ps-form :expecting :statement)))))
+                       (eval x))
+                   s))
+          (parenscript-print (compile-parenscript-form ps-form :expecting :statement)))))
 
 (defun ps* (&rest body)
   "Compiles BODY to a JavaScript string.