From 6038dee1ef311c4c249f0da99d82c4f2517c1b4f Mon Sep 17 00:00:00 2001 From: digikar Date: Sun, 31 Mar 2024 14:45:19 +0530 Subject: [PATCH] [fix] in slot-unbound: instance -> class --- abstract-array-ordered-class.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/abstract-array-ordered-class.lisp b/abstract-array-ordered-class.lisp index 0f56b4c..2d977b2 100644 --- 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