Commit 18e4bb81 authored by pfdietz's avatar pfdietz

Test for typecase bug in lisp found by B. Haible

parent a061845e
......@@ -93,6 +93,15 @@
(return-from done 'good)))
good)
(deftest typecase.18
(loop for x in '(a 1 1.4 "c")
collect (typecase x
(t :good)
(otherwise :bad)))
(:good :good :good :good))
;;; Error cases
(deftest typecase.error.1
(signals-error (funcall (macro-function 'typecase)) 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