X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/de869fc8c8f988f5551802bf1887a1e9b8f4d6cf..1645e4335e58ef3a8f1cafb1834e93760d80d9ae:/src/class-layout-proto.lisp

diff --git a/src/class-layout-proto.lisp b/src/class-layout-proto.lisp
index 0803b18..d34bf8b 100644
--- a/src/class-layout-proto.lisp
+++ b/src/class-layout-proto.lisp
@@ -31,7 +31,7 @@
 (export '(effective-slot effective-slot-class
 	  effective-slot-direct-slot effective-slot-initializer))
 (defclass effective-slot ()
-  ((%class :initarg :class :type sod-slot :reader effective-slot-class)
+  ((%class :initarg :class :type sod-class :reader effective-slot-class)
    (slot :initarg :slot :type sod-slot :reader effective-slot-direct-slot)
    (initializer :initarg :initializer :type (or sod-initializer null)
 		:reader effective-slot-initializer))