Commit 705a2cd3 authored by pfdietz's avatar pfdietz
Browse files

Added tests of 'T' as the type in normal clauses of TYPECASE.

parent e499a396
......@@ -65,6 +65,16 @@
(typecase 1 (symbol 'a) (otherwise))
nil)
(deftest typecase.15
(typecase 'foo (t :wrong) (symbol :right) (t :also-wrong))
:right)
(deftest typecase.16
(typecase 'foo (t :wrong) (symbol :right))
:right)
......
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