From: David Vazquez <davazp@gmail.com>
Date: Mon, 24 Dec 2012 02:34:23 +0000 (+0000)
Subject: DEFUN returns the function name
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=42ac491ed841d486d778b14ff6d113430a36ba85;p=jscl.git

DEFUN returns the function name
---

diff --git a/lispstrack.lisp b/lispstrack.lisp
index f31ca0f..8620bf3 100644
--- 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