diff --git a/ansi-tests/make-instances-obsolete.lsp b/ansi-tests/make-instances-obsolete.lsp index 64db6543976023251e444b01215752d6de72a887..28157c6cb5c20c77feee27a8de9beeb4eb71c812 100644 --- a/ansi-tests/make-instances-obsolete.lsp +++ b/ansi-tests/make-instances-obsolete.lsp @@ -22,12 +22,13 @@ t (x y z 17) t (x y z 17)) (deftest make-instances-obsolete.2 - (let* ((class (find-class 'make-instances-obsolete-class-01)) + (let* ((class-designator 'make-instances-obsolete-class-01) + (class (find-class class-designator)) (obj (make-instance class :a 'x :b 'y :c 'z :d 17))) (values (eqt (class-of obj) class) (map-slot-value obj '(a b c d)) - (eqt (make-instances-obsolete 'make-instances-obsolete-class-01) class) + (eqt (make-instances-obsolete class-designator) class-designator) (map-slot-value obj '(a b c d)))) t (x y z 17) t (x y z 17))