Commit 71bd45e3 authored by pfdietz's avatar pfdietz
Browse files

Another test of anonymous classes in type-of.

parent 91c81c55
......@@ -69,16 +69,19 @@
(type-of (make-instance 'type-of.example-class))
(defparameter *type-of.example-class-2*
(defclass type-of.example-class-2 () ((a) (b) (c))))
(deftest type-of.8
(setf (class-name *type-of.example-class-2*) nil)
(eqt (type-of (make-instance *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))
(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))
;;; Error tests
(deftest type-of.error.1
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment