X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Ftype.impure.lisp;h=02ee7f748c67ad78106d83f6f115742edfcb5e87;hb=782a45c5d5000d7e86c83e7b303f15270b1e03c2;hp=38cee279b3c66d36635be49d45ff7d48641c5728;hpb=2eee1c446adf860571a0d5e89eb5c547806cda76;p=sbcl.git

diff --git a/tests/type.impure.lisp b/tests/type.impure.lisp
index 38cee27..02ee7f7 100644
--- a/tests/type.impure.lisp
+++ b/tests/type.impure.lisp
@@ -109,6 +109,16 @@
 (assert (raises-error? (typep 11 'eql)))
 (assert (raises-error? (typep 11 'satisfies)))
 (assert (raises-error? (typep 11 'not)))
+;;; and while it doesn't specifically disallow illegal compound
+;;; specifiers from the CL package, we don't have any.
+(assert (raises-error? (subtypep 'fixnum '(fixnum 1))))
+(assert (raises-error? (subtypep 'class '(list))))
+(assert (raises-error? (subtypep 'foo '(ratio 1/2 3/2))))
+(assert (raises-error? (subtypep 'character '(character 10))))
+#+nil ; doesn't yet work on PCL-derived internal types
+(assert (raises-error? (subtypep 'lisp '(class))))
+#+nil
+(assert (raises-error? (subtypep 'bar '(method number number))))
 
 ;;; Of course empty lists of subtypes are still OK.
 (assert (typep 11 '(and)))