From: Vladimir Sedach <vsedach@gmail.com>
Date: Sun, 10 May 2009 17:39:02 +0000 (-0600)
Subject: Made compiled-form-to-string use write-string instead of printc, which
X-Git-Url: http://git.hcoop.net/clinton/parenscript.git/commitdiff_plain/9831d514e9cd52a133bb3c66ea26d67b0e7d08b0?hp=a090d1e5890778d100fdf9bad29c8c747d9ea847

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
--- 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.")