From eb6c36e659438475d6db66b59f4340458396caa3 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 22 May 2005 01:02:31 +0000 Subject: [PATCH] Remove unused variable --- ansi-tests/change-class.lsp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/ansi-tests/change-class.lsp b/ansi-tests/change-class.lsp index d8e683be..65a33819 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) -- GitLab