HCoop
/
clinton
/
parenscript.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0ce67a3
)
Use WITH-OUTPUT-TO-STRING instead of CONCATENATE, because the latter fails when there...
author
Daniel Gackle
<danielgackle@gmail.com>
Sat, 11 Apr 2009 22:39:31 +0000
(15:39 -0700)
committer
Daniel Gackle
<danielgackle@gmail.com>
Sat, 11 Apr 2009 22:39:31 +0000
(15:39 -0700)
src/compilation-interface.lisp
patch
|
blob
|
blame
|
history
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.