X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=ecmalisp.lisp;h=286069dcc7d337e65e35985c35b2e75f96588e99;hb=30a1bbb8152583d8f7afadb4e1d89b6a0fe3353b;hp=81f92d5feb5d95cbc843df8981228fa60abddd23;hpb=fc1a6500e8e27512d37c509cb1ed006d8efaf98f;p=jscl.git

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 81f92d5..286069d 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -890,10 +890,10 @@
 (defun lambda-docstring-wrapper (docstring &rest strs)
   (if docstring
       (js!selfcall
-        "var func = " (reduce #'concat strs) ";" *newline*
+        "var func = " (join strs) ";" *newline*
         "func.docstring = '" docstring "';" *newline*
         "return func;" *newline*)
-      (reduce #'concat strs)))
+      (join strs)))
 
 (define-compilation lambda (lambda-list &rest body)
   (let ((required-arguments (lambda-list-required-arguments lambda-list))