X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler.lisp;h=2d51fb27c49aa89b1f0fc676578b988d53d70fd1;hb=d2606c21bb809cadd34b75973454d4340b0ce7e2;hp=2edc334699e41f54bea329509a1c848fd9077929;hpb=a0811544fcd5f5b1bd04e23a3cf52b76e04229b1;p=jscl.git

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 2edc334..2d51fb2 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -612,7 +612,7 @@
            ,@(interleave (mapcar #'translate-function fnames) ",")
            "){"
            ,(ls-compile-block body t)
-           "})(" ,@cfuncs ")")))
+           "})(" ,@(interleave cfuncs ",") ")")))
 
 (define-compilation labels (definitions &rest body)
   (let* ((fnames (mapcar #'car definitions))