1.0.22.20: Make a stab at having DEFTYPE types replace structure types.

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

diff --git a/tests/deftype.impure.lisp b/tests/deftype.impure.lisp
index 373f6d4..b11b982 100644 (file)
--- a/tests/deftype.impure.lisp
+++ b/tests/deftype.impure.lisp
@@ -31,3 +31,10 @@
 (deftype deftype-with-empty-body ())
 (assert (subtypep 'deftype-with-empty-body nil))
 (assert (subtypep nil 'deftype-with-empty-body))
+
+;; Ensure that DEFTYPE can successfully replace a DEFSTRUCT type
+;; definition.
+(defstruct foo)
+(assert (progn (deftype foo () 'integer)
+               (null (find-class 'foo nil))
+               t))
\ No newline at end of file