Commit 91f04b4d authored by pfdietz's avatar pfdietz
Browse files

More THE tests.

parent e6a32ffb
...@@ -51,3 +51,24 @@ ...@@ -51,3 +51,24 @@
(eql (cadr x) :ignored)) (eql (cadr x) :ignored))
collect e) collect e)
nil) nil)
(deftest the.8
(loop for e in *universe*
when (and (constantp e)
(not (eql (eval `(the ,(type-of e) ,e)) e)))
collect e)
nil)
(deftest the.9
(loop for e in *universe*
when (and (constantp e)
(not (eql (eval `(the ,(class-of e) ,e)) e)))
collect e)
nil)
(deftest the.10
(loop for e in *universe*
unless (eql (eval `(the ,(class-of e) ',e)) e)
collect e)
nil)
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