diff options
| -rw-r--r-- | hyperquirks.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/hyperquirks.lisp b/hyperquirks.lisp index 8f3a944..70ee560 100644 --- a/hyperquirks.lisp +++ b/hyperquirks.lisp @@ -5,9 +5,9 @@ ;;; MACROS (defmacro defvarf (var &optional val doc) - `(progn - (defvar ,var nil ,doc) - (setf ,var ,val))) + `(if (boundp ',var) + (setf ,var ,val) + (defvar ,var ,val ,doc))) (defmacro imperative (&body body) "Evaluate expressins in BODY in sequence. Expressions that look |