projects
/
jscl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
DEFVAR returns the symbol
[jscl.git]
/
lispstrack.lisp
diff --git
a/lispstrack.lisp
b/lispstrack.lisp
index
8620bf3
..
bbfa924
100644
(file)
--- a/
lispstrack.lisp
+++ b/
lispstrack.lisp
@@
-29,12
+29,15
@@
`(eval-when-compile
(%compile-defmacro ',name '(lambda ,args ,@body))))))
`(eval-when-compile
(%compile-defmacro ',name '(lambda ,args ,@body))))))
- (defmacro defvar (name value)
+ (defmacro %defvar (name value)
`(progn
(eval-when-compile
(%compile-defvar ',name))
(setq ,name ,value)))
`(progn
(eval-when-compile
(%compile-defvar ',name))
(setq ,name ,value)))
+ (defmacro defvar (name value)
+ `(%defvar ,name ,value))
+
(defmacro %defun (name args &rest body)
`(progn
(eval-when-compile
(defmacro %defun (name args &rest body)
`(progn
(eval-when-compile
@@
-135,6
+138,11
@@
(%defun ,name ,args ,@body)
',name))
(%defun ,name ,args ,@body)
',name))
+ (defmacro defvar (name value)
+ `(progn
+ (%defvar ,name ,value)
+ ',name))
+
(defun append-two (list1 list2)
(if (null list1)
list2
(defun append-two (list1 list2)
(if (null list1)
list2