[fix] in slot-unbound: instance -> class

digikar99 · Mar 31, 2024 · 6038dee · 6038dee
1 parent 70c0807
commit 6038dee
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/abstract-array-ordered-class.lisp b/abstract-array-ordered-class.lisp
@@ -12,7 +12,7 @@
 (defmethod slot-unbound (class (array-class abstract-array-class)
                          (slot-name (eql 'sb-pcl::%class-precedence-list)))
   ;; FIXME: Is this correct?
-  (setf (slot-value instance slot-name)
+  (setf (slot-value class slot-name)
         (list array-class (find-class 't))))
 
 (defmethod closer-mop:validate-superclass