X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/de869fc8c8f988f5551802bf1887a1e9b8f4d6cf..1645e4335e58ef3a8f1cafb1834e93760d80d9ae:/src/classes.lisp

diff --git a/src/classes.lisp b/src/classes.lisp
index 118b09b..da18f5a 100644
--- a/src/classes.lisp
+++ b/src/classes.lisp
@@ -88,7 +88,7 @@ (defclass sod-class ()
    (effective-methods :type list :reader sod-class-effective-methods)
    (vtables :type list :reader sod-class-vtables)
 
-   (state :initform nil :type (member nil :finalized broken)
+   (state :initform nil :type (member nil :finalized :broken)
 	  :reader sod-class-state))
   (:documentation
    "Classes describe the layout and behaviour of objects.