From 9831d514e9cd52a133bb3c66ea26d67b0e7d08b0 Mon Sep 17 00:00:00 2001 From: Vladimir Sedach Date: Sun, 10 May 2009 11:39:02 -0600 Subject: [PATCH] Made compiled-form-to-string use write-string instead of printc, which results in a much more efficient ps*. --- src/compilation-interface.lisp | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) 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.") -- 2.20.1