Commit 725c5e2a authored by pfdietz's avatar pfdietz

Slight variant of type-of.8

parent f8e38d3f
......@@ -98,6 +98,13 @@
(eqt (type-of (make-instance class)) class))
t)
(deftest type-of.10
(let* ((class (eval '(defclass type-of.example-class-4 () ((a) (b) (c)))))
(obj (make-instance class)))
(setf (class-name class) nil)
(notnot-mv (typep obj class)))
t)
;;; Error tests
(deftest type-of.error.1
......@@ -107,3 +114,4 @@
(deftest type-of.error.2
(signals-error (type-of nil nil) program-error)
t)
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