Fix FLET
authorDavid Vázquez <davazp@gmail.com>
Sat, 22 Jun 2013 15:35:40 +0000 (17:35 +0200)
committerDavid Vázquez <davazp@gmail.com>
Sat, 22 Jun 2013 15:35:40 +0000 (17:35 +0200)
src/compiler.lisp

index 2edc334..2d51fb2 100644 (file)
            ,@(interleave (mapcar #'translate-function fnames) ",")
            "){"
            ,(ls-compile-block body t)
-           "})(" ,@cfuncs ")")))
+           "})(" ,@(interleave cfuncs ",") ")")))
 
 (define-compilation labels (definitions &rest body)
   (let* ((fnames (mapcar #'car definitions))