diff --git a/ansi-tests/change-class.lsp b/ansi-tests/change-class.lsp index d8e683becfb2fddab08711d71dd0833a5f03989d..65a33819e38e9b0351ea95ed49fdc9429c35dc3e 100644 --- a/ansi-tests/change-class.lsp +++ b/ansi-tests/change-class.lsp @@ -164,7 +164,8 @@ ;; test of class name as second argument (deftest change-class.1.12 (let ((obj (make-instance 'change-class-class-01a :b 1)) - (new-class (find-class 'change-class-class-01b))) + ;; (new-class (find-class 'change-class-class-01b)) + ) (values (eqt obj (change-class obj 'change-class-class-01b :c2 3)) (typep* obj 'change-class-class-01a)