1.0.23.60: fix bug 354: XEPs in backtraces, properly this time

[sbcl.git] / tests / deftype.impure.lisp

diff --git a/tests/deftype.impure.lisp b/tests/deftype.impure.lisp
index b11b982..ee43d3b 100644 (file)
--- a/tests/deftype.impure.lisp
+++ b/tests/deftype.impure.lisp
@@ -37,4 +37,10 @@
 (defstruct foo)
 (assert (progn (deftype foo () 'integer)
                (null (find-class 'foo nil))
-               t))
\ No newline at end of file
+               t))
+
+;; Ensure that DEFCLASS after DEFTYPE nukes the lambda-list.
+(deftype bar (x) `(integer ,x))
+(assert (equal '(x) (sb-int:info :type :lambda-list 'bar)))
+(defclass bar () ())
+(assert (not (sb-int:info :type :lambda-list 'bar)))