X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=lispstrack.lisp;h=bbfa92455c7403f3aa68efce105bea6ab32043cc;hb=7392f25d8e6c4f45a075a82a245475b08b5578a1;hp=8620bf349e3701c6f3ef495b2a6e4ee40674564c;hpb=42ac491ed841d486d778b14ff6d113430a36ba85;p=jscl.git

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 8620bf3..bbfa924 100644
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -29,12 +29,15 @@
                         `(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)))
 
+  (defmacro defvar (name value)
+    `(%defvar ,name ,value))
+
  (defmacro %defun (name args &rest body)
    `(progn
       (eval-when-compile
@@ -135,6 +138,11 @@
        (%defun ,name ,args ,@body)
        ',name))
 
+  (defmacro defvar (name value)
+    `(progn
+       (%defvar ,name ,value)
+       ',name))
+
   (defun append-two (list1 list2)
     (if (null list1)
         list2