From f10df81a2fac47fcda2180916fd975bb8216e00b Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 15 May 2004 12:41:33 +0000
Subject: [PATCH] Fixed return value bug in make-instances-obsolete.2

---
 ansi-tests/make-instances-obsolete.lsp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ansi-tests/make-instances-obsolete.lsp b/ansi-tests/make-instances-obsolete.lsp
index 64db6543..28157c6c 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))
 
-- 
GitLab