src/*.lisp: Fix declared slot types.

[sod] / src / classes.lisp

diff --git a/src/classes.lisp b/src/classes.lisp
index 118b09b770aac09b2458db758529497caa8d5051..da18f5a3c44b16c14dbcba4c62c981b8b4faf35d 100644 (file)
--- 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)
 
    (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.
          :reader sod-class-state))
   (:documentation
    "Classes describe the layout and behaviour of objects.