From: Christophe R. <cr...@us...> - 2003-03-31 12:19:41
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs1:/tmp/cvs-serv3240/tests Modified Files: mop.impure.lisp Log Message: 0.pre8.19: Export those classes which are present in our implementation of the MOP from SB-MOP ... also document absence of METAOBJECT and disjointness of STANDARD-OBJECT and FUNCALLABLE-STANDARD-OBJECT Index: mop.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/mop.impure.lisp,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- mop.impure.lisp 29 Mar 2003 15:14:30 -0000 1.9 +++ mop.impure.lisp 31 Mar 2003 12:19:28 -0000 1.10 @@ -89,7 +89,7 @@ ;;; that it is at least possible to define classes with that as a ;;; metaclass. (defclass gf-class (standard-generic-function) () - (:metaclass sb-pcl::funcallable-standard-class)) + (:metaclass funcallable-standard-class)) (defgeneric g (a b c) (:generic-function-class gf-class)) @@ -109,15 +109,15 @@ ;;; of all built-in-classes is of the relevant type) (assert (null (class-prototype (find-class 'null)))) -;;; simple consistency checks for the SB-PCL (perhaps AKA SB-MOP) -;;; package: all of the functionality specified in AMOP is in -;;; functions: -(assert (null (loop for x being each external-symbol in "SB-PCL" - unless (fboundp x) collect x))) -;;; and all generic functions in SB-PCL have at least one specified +;;; simple consistency checks for the SB-MOP package: all of the +;;; functionality specified in AMOP is in functions and classes: +(assert (null (loop for x being each external-symbol in "SB-MOP" + unless (or (fboundp x) (find-class x)) collect x))) +;;; and all generic functions in SB-MOP have at least one specified ;;; method, except for UPDATE-DEPENDENT -(assert (null (loop for x being each external-symbol in "SB-PCL" - unless (or (eq x 'update-dependent) +(assert (null (loop for x being each external-symbol in "SB-MOP" + unless (or (not (fboundp x)) + (eq x 'update-dependent) (not (typep (fdefinition x) 'generic-function)) (> (length (generic-function-methods (fdefinition x))) |