X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=blobdiff_plain;f=src%2Fboot.lisp;fp=src%2Fboot.lisp;h=4a435bd917405739bbaa8893f4359d8109596a12;hp=ce61f98e2a3b54f21e2f8283543a8cd6eb68c865;hb=ebe7c315e2527ae59ce5544c4d117ead4dd04ff3;hpb=93a48dc177c1509396980002910124d70aaa4089

diff --git a/src/boot.lisp b/src/boot.lisp
index ce61f98..4a435bd 100644
--- a/src/boot.lisp
+++ b/src/boot.lisp
@@ -78,6 +78,8 @@
 
 (defmacro defun (name args &rest body)
   `(progn
+     (eval-when (:compile-toplevel)
+       (fn-info ',name :defined t))
      (fset ',name #'(named-lambda ,name ,args ,@body))
      ',name))