X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/882412cf540eead2c7339273c47bc16822cc79db..4307347660f48628e307f299eb4fac58ba35fd1a:/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 @@
    (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.