From: Richard M K. <kr...@us...> - 2008-11-30 20:37:30
|
Update of /cvsroot/sbcl/sbcl/tests In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv24402/tests Modified Files: deftype.impure.lisp Log Message: 1.0.22.20: Make a stab at having DEFTYPE types replace structure types. * Probably a still bit wrong around the edges, but seems to work. Index: deftype.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/deftype.impure.lisp,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- deftype.impure.lisp 3 Nov 2008 17:23:35 -0000 1.4 +++ deftype.impure.lisp 30 Nov 2008 20:37:22 -0000 1.5 @@ -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 |