DEFVAR returns the symbol

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