X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ftype.impure.lisp;h=31b42e9cc047dd0d405183d338150321bf978466;hb=cb7837b769ce190baec60a2159c33099816ea6e3;hp=45331653304d77b22c2014e995e1183ba79d1b9d;hpb=5470bfd1ed062203f4ab009f6ec19e81f8f32066;p=sbcl.git diff --git a/tests/type.impure.lisp b/tests/type.impure.lisp index 4533165..31b42e9 100644 --- a/tests/type.impure.lisp +++ b/tests/type.impure.lisp @@ -13,7 +13,13 @@ integer fixnum (integer 0 10) single-float (single-float -1.0 1.0) (single-float 0.1) (real 4 8) (real -1 7) (real 2 11) - (member #\a #\b #\c) (member 1 #\a) (member 3.0 3.3)))) + (member #\a #\b #\c) (member 1 #\a) (member 3.0 3.3) + ;; FIXME: When bug 91 is fixed, add these to the list: + ;; (INTEGER -1 1) + ;; UNSIGNED-BYTE + ;; (RATIONAL -1 7) (RATIONAL -2 4) + ;; RATIO + ))) (dolist (i types) (format t "type I=~S~%" i) (dolist (j types)