X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fmop.impure.lisp;h=7b336655e8442782646795b3e86c9f6ec498cf55;hb=5e92e9ed61903658015c2a75c79a32ad41dbd29d;hp=3c3ae3e065e9081c7967231ec41f277bf08e9d3c;hpb=2d237dbc3edb1f6f5337ab19dd74a317e43234db;p=sbcl.git diff --git a/tests/mop.impure.lisp b/tests/mop.impure.lisp index 3c3ae3e..7b33665 100644 --- a/tests/mop.impure.lisp +++ b/tests/mop.impure.lisp @@ -434,7 +434,7 @@ ((scforfsc-slot :initarg :scforfsc-slot :accessor scforfsc-slot))) (defvar *standard-class-for-fsc* (make-instance 'standard-class-for-fsc :scforfsc-slot 1)) -(defclass fsc-with-standard-class-superclass +(defclass fsc-with-standard-class-superclass (standard-class-for-fsc funcallable-standard-object) ((fsc-slot :initarg :fsc-slot :accessor fsc-slot)) (:metaclass funcallable-standard-class))