From a912e36ee33091a6d1c0047a738c9a94ba22ffc9 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Mon, 8 Aug 2022 16:37:53 -0500
Subject: [refactor] defvarf

---
 hyperquirks.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'hyperquirks.lisp')

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
-- 
cgit v1.2.3