Fix bug in defun, reported by abeaumont

[jscl.git] / ecmalisp.lisp

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index e4dba1b..a422c20 100644 (file)
--- 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*)))