X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/db6c3279edc260e3e301df1c9b082b374cd002c7..97d10f8b1f631cd32ea5ac9118b253cb4142d391:/src/utilities.lisp

diff --git a/src/utilities.lisp b/src/utilities.lisp
index 72423fd..72af8b3 100644
--- a/src/utilities.lisp
+++ b/src/utilities.lisp
@@ -709,6 +709,17 @@
     (reduce #'compose1 more-functions :initial-value function)))
 
 ;;;--------------------------------------------------------------------------
+;;; Variables.
+
+(export 'defvar-unbound)
+(defmacro defvar-unbound (var doc)
+  "Make VAR a special variable with documentation DOC, but leave it unbound."
+  `(eval-when (:compile-toplevel :load-toplevel :execute)
+     (defvar ,var)
+     (setf (documentation ',var 'variable) ',doc)
+     ',var))
+
+;;;--------------------------------------------------------------------------
 ;;; Symbols.
 
 (export 'symbolicate)