From: Christophe R. <cr...@us...> - 2002-11-12 15:33:44
|
Update of /cvsroot/sbcl/sbcl/tests In directory usw-pr-cvs1:/tmp/cvs-serv23461/tests Modified Files: clos.impure.lisp Log Message: 0.7.9.45: Merge patch from Gerd Moellmann cmucl-imp 2002-10-29 "COMPUTE-CLASS-PRECEDENCE-LIST and AMOP" ... make COMPUTE-CLASS-PRECEDENCE-LIST specialize on CLASS, not SLOT-CLASS ... catch some forward-referenced-class cases that slipped through the net write a FINALIZE-INHERITANCE method for forward-referenced-class Index: clos.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/clos.impure.lisp,v retrieving revision 1.21 retrieving revision 1.22 diff -u -d -r1.21 -r1.22 --- clos.impure.lisp 8 Nov 2002 16:23:03 -0000 1.21 +++ clos.impure.lisp 12 Nov 2002 15:33:41 -0000 1.22 @@ -416,6 +416,18 @@ (assert (equal (incompatible-ll-test-2 t 1 2) '(1 2))) (assert (eq (incompatible-ll-test-2 1 :bar 'yes) 'yes)) +;;; Attempting to instantiate classes with forward references in their +;;; CPL should signal errors (FIXME: of what type?) +(defclass never-finished-class (this-one-unfinished-too) ()) +(multiple-value-bind (result error) + (ignore-errors (make-instance 'never-finished-class)) + (assert (null result)) + (assert (typep error 'error))) +(multiple-value-bind (result error) + (ignore-errors (make-instance 'this-one-unfinished-too)) + (assert (null result)) + (assert (typep error 'error))) + ;;;; success (sb-ext:quit :unix-status 104) |