From: David Vázquez <davazp@gmail.com>
Date: Sat, 29 Jun 2013 16:36:11 +0000 (+0200)
Subject: FLET
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=4efabd20920397dd776864189550a8a87e666152;p=jscl.git

FLET
---

diff --git a/src/compiler.lisp b/src/compiler.lisp
index 10783e9..b590962 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -605,11 +605,9 @@
           (extend-lexenv (mapcar #'make-function-binding fnames)
                          *environment*
                          'function)))
-    `(code "(function("
-           ,@(interleave (mapcar #'translate-function fnames) ",")
-           "){"
-           ,(ls-compile-block body t)
-           "})(" ,@(interleave cfuncs ",") ")")))
+    `(call (function ,(mapcar #'make-symbol (mapcar #'translate-function fnames))
+                ,(ls-compile-block body t))
+           ,@cfuncs)))
 
 (define-compilation labels (definitions &rest body)
   (let* ((fnames (mapcar #'car definitions))