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