From: David Vazquez <davazp@gmail.com>
Date: Mon, 24 Dec 2012 02:35:46 +0000 (+0000)
Subject: DEFVAR returns the symbol
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;ds=sidebyside;h=7392f25d8e6c4f45a075a82a245475b08b5578a1;p=jscl.git

DEFVAR returns the symbol
---

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