DEBUG: Basic compiler undefined function warning

[jscl.git] / src / boot.lisp

diff --git a/src/boot.lisp b/src/boot.lisp
index ce61f98..4a435bd 100644 (file)
--- 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))