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