projects
/
jscl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5bdf397
)
DEFUN returns the function name
author
David Vazquez
<davazp@gmail.com>
Mon, 24 Dec 2012 02:34:23 +0000
(
02:34
+0000)
committer
David Vazquez
<davazp@gmail.com>
Mon, 24 Dec 2012 02:34:23 +0000
(
02:34
+0000)
lispstrack.lisp
patch
|
blob
|
history
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)))
(%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))))
`(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"))
(defvar *package* (new))
(defvar nil (make-symbol "NIL"))
@@
-127,6
+130,11
@@
#+lispstrack
(progn
#+lispstrack
(progn
+ (defmacro defun (name args &rest body)
+ `(progn
+ (%defun ,name ,args ,@body)
+ ',name))
+
(defun append-two (list1 list2)
(if (null list1)
list2
(defun append-two (list1 list2)
(if (null list1)
list2