X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=ecmalisp.lisp;h=a422c20c975bbdfd3e9947873059740d71978d43;hb=c8878832d5174a2478541db5140a36f34baf829d;hp=e4dba1b0be8c1180db3d1c24a3cf97b4ed750909;hpb=8eac8507433344217bcc9ffcd677a130977df099;p=jscl.git

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index e4dba1b..a422c20 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -725,7 +725,7 @@
     (push (concat "var " (binding-translation b)) *toplevel-compilations*)))
 
 (defun %compile-defun (name)
-  (let ((b (lookup-function name *env*)))
+  (let ((b (lookup-function name *fenv*)))
     (mark-binding-as-declared b)
     (push (concat "var " (binding-translation b)) *toplevel-compilations*)))