src/*.lisp: Fix declared slot types.

[sod] / src / classes.lisp

diff --git a/src/classes.lisp b/src/classes.lisp
index 118b09b..da18f5a 100644 (file)
--- 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.