X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/882412cf540eead2c7339273c47bc16822cc79db..2d8d81c52aded8f15e37b061971d493742f55751:/src/classes.lisp

diff --git a/src/classes.lisp b/src/classes.lisp
index 94ace12..d403d10 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.