1.0.29.1: fix FILL

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

diff --git a/tests/deftype.impure.lisp b/tests/deftype.impure.lisp
index ee43d3b..c260264 100644 (file)
--- a/tests/deftype.impure.lisp
+++ b/tests/deftype.impure.lisp
@@ -44,3 +44,8 @@
 (assert (equal '(x) (sb-int:info :type :lambda-list 'bar)))
 (defclass bar () ())
 (assert (not (sb-int:info :type :lambda-list 'bar)))
+
+;; Need to work with plain symbols as the body.
+(defconstant whatever 't)
+(deftype anything () whatever)
+(assert (typep 42 'anything))