DEFUN returns the function name

diff --git a/lispstrack.lisp b/lispstrack.lisp
index f31ca0f..8620bf3 100644 (file)
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -35,12 +35,15 @@
         (%compile-defvar ',name))
       (setq ,name ,value)))
 
- (defmacro defun (name args &rest body)
+ (defmacro %defun (name args &rest body)
    `(progn
       (eval-when-compile
         (%compile-defun ',name))
       (fsetq ,name (lambda ,args ,@body))))
 
+  (defmacro defun (name args &rest body)
+    `(%defun ,name ,args ,@body))
+
  (defvar *package* (new))
 
  (defvar nil (make-symbol "NIL"))
@@ -127,6 +130,11 @@
 
 #+lispstrack
 (progn
+  (defmacro defun (name args &rest body)
+    `(progn
+       (%defun ,name ,args ,@body)
+       ',name))
+
   (defun append-two (list1 list2)
     (if (null list1)
         list2