From 71bd45e3723cc271b13f1c85394f9ee082d537cd Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Fri, 6 Jun 2003 21:23:22 +0000
Subject: [PATCH] Another test of anonymous classes in type-of.

---
 ansi-tests/type-of.lsp | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/ansi-tests/type-of.lsp b/ansi-tests/type-of.lsp
index d4df8436..0c4a5d48 100644
--- a/ansi-tests/type-of.lsp
+++ b/ansi-tests/type-of.lsp
@@ -69,16 +69,19 @@
   (type-of (make-instance 'type-of.example-class))
   type-of.example-class)
 
-(defparameter *type-of.example-class-2*
-  (defclass type-of.example-class-2 () ((a) (b) (c))))
-
 (deftest type-of.8
-  (progn
-    (setf (class-name *type-of.example-class-2*) nil)
-    (eqt (type-of (make-instance *type-of.example-class-2*))
-	 *type-of.example-class-2*))
+  (let ((class (eval '(defclass type-of.example-class-2 () ((a) (b) (c))))))
+    (setf (class-name class) nil)
+    (eqt (type-of (make-instance class)) class))
+  t)
+
+(deftest type-of.9
+  (let ((class (eval '(defclass type-of.example-class-3 () ((a) (b) (c))))))
+    (setf (find-class 'type-of.example-class-3) nil)
+    (eqt (type-of (make-instance class)) class))
   t)
 
+
 ;;; Error tests
 
 (deftest type-of.error.1
-- 
GitLab