X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fdeftype.impure.lisp;h=3432997cd85149120b4013b2cf470ecda572bda6;hb=7a2ee8c1aff0bdd286cf5d43ab40bff7fed86bea;hp=c2602648f86c6d3840368fcd822d766b4c4c23e8;hpb=1046ddb66edccc3d6aedc7e65180e1abeb38ed4d;p=sbcl.git

diff --git a/tests/deftype.impure.lisp b/tests/deftype.impure.lisp
index c260264..3432997 100644
--- a/tests/deftype.impure.lisp
+++ b/tests/deftype.impure.lisp
@@ -49,3 +49,6 @@
 (defconstant whatever 't)
 (deftype anything () whatever)
 (assert (typep 42 'anything))
+
+(with-test (:name :deftype-not-list-lambda-list)
+  (assert (raises-error? (eval `(deftype ,(gensym) non-list-argument)))))