src/utilities: (add partial-order-minima)

[sod] / src / method-proto.lisp

diff --git a/src/method-proto.lisp b/src/method-proto.lisp
index 6f8dc02c75396601e4cb36d07b4350bd2519fec2..e85f62ad78e25daf26bb8619f686cfa7bf11010f 100644 (file)
--- a/src/method-proto.lisp
+++ b/src/method-proto.lisp
@@ -290,14 +290,10 @@ (definst convert-to-ilayout (stream :export t)
 
 ;;; 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.