Made compiled-form-to-string use write-string instead of printc, which

results in a much more efficient ps*.

diff --git a/src/compilation-interface.lisp b/src/compilation-interface.lisp
index 3c7ea77..cb97cf3 100644 (file)
--- a/src/compilation-interface.lisp
+++ b/src/compilation-interface.lisp
@@ -25,12 +25,8 @@ Body is evaluated."
 
 (defun compiled-form-to-string (ps-compiled-form)
   (with-output-to-string (s)
-    (mapc (lambda (x)
-            (princ (if (stringp x)
-                       x
-                       (eval x))
-                   s))
-          (parenscript-print ps-compiled-form))))
+    (dolist (x (parenscript-print ps-compiled-form))
+      (write-string (if (stringp x) x (eval x)) s))))
 
 (defvar *js-inline-string-delimiter* #\"
   "Controls the string delimiter char used when compiling Parenscript in ps-inline.")