From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 26 Mar 2017 14:16:18 +0000 (+0100)
Subject: src/method-proto.lisp: Don't bind `*keyword-struct-disposition*' initially.
X-Git-Url: https://git.distorted.org.uk/~mdw/sod/commitdiff_plain/97d10f8b1f631cd32ea5ac9118b253cb4142d391

src/method-proto.lisp: Don't bind `*keyword-struct-disposition*' initially.

Abolish the `:unset' state, which was an acknowledged hack for the
absence of `defvar-unbound' which we now have.
---

diff --git a/src/method-proto.lisp b/src/method-proto.lisp
index 6f8dc02..e85f62a 100644
--- a/src/method-proto.lisp
+++ b/src/method-proto.lisp
@@ -290,14 +290,10 @@
 
 ;;; Utilities.
 
-(defvar *keyword-struct-disposition* :unset
+(defvar-unbound *keyword-struct-disposition*
   "The current state of the keyword structure.
 
-   This can be one of four values.
-
-     * `:unset' -- the top-level default, mostly because I can't leave it
-       unbound and write this documentation.  Nothing that matters should see
-       this state.
+   This can be one of three values.
 
      * `:local' -- the structure itself is in a local variable `sod__kw'.
        This is used in the top-level effective method.