From 7392f25d8e6c4f45a075a82a245475b08b5578a1 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Mon, 24 Dec 2012 02:35:46 +0000 Subject: [PATCH] DEFVAR returns the symbol --- lispstrack.lisp | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) 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 -- 1.7.10.4