From ab663bd390b95de44dd144fbeea504e0ed2e5d2d Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 29 Apr 2003 05:54:24 +0000 Subject: [PATCH] r4684: Auto commit for Debian build --- mop.lisp | 49 +++++++++++++++++++++++++++++++++++++------------ 1 file changed, 37 insertions(+), 12 deletions(-) diff --git a/mop.lisp b/mop.lisp index 571b1f4..73f9499 100644 --- a/mop.lisp +++ b/mop.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2003 ;;;; -;;;; $Id: mop.lisp,v 1.7 2003/04/29 05:11:57 kevin Exp $ +;;;; $Id: mop.lisp,v 1.8 2003/04/29 05:54:24 kevin Exp $ ;;;; ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -48,12 +48,31 @@ (eval-when (:compile-toplevel :load-toplevel :execute) (shadowing-import #+allegro - '(excl::compute-effective-slot-definition-initargs) + '(class-of class-name class-slots find-class mop::standard-class + mop::slot-definition-name mop:finalize-inheritance + mop::standard-direct-slot-definition mop::standard-effective-slot-definition + mop::validate-superclass mop:direct-slot-definition-class + mop:compute-effective-slot-definition + excl::compute-effective-slot-definition-initargs + mop::slot-value-using-class + mop:class-prototype mop:generic-function-method-class mop:intern-eql-specializer + mop:make-method-lambda mop:generic-function-lambda-list + mop::compute-slots + ;; note: make-method-lambda is not fbound + ) #+lispworks - '(clos::compute-effective-slot-definition-initargs) - #+kmr-sbcl-mop - '(sb-pcl::compute-effective-slot-definition-initargs) - #+kmr-sbcl-pcl + '(class-of class-name class-slots find-class + clos::standard-class + clos:slot-definition-name clos::finalize-inheritance + clos::standard-direct-slot-definition + clos::standard-effective-slot-definition clos::validate-superclass + clos::direct-slot-definition-class clos::compute-effective-slot-definition + clos::compute-effective-slot-definition-initargs + clos::slot-value-using-class + clos:class-prototype clos:generic-function-method-class clos:intern-eql-specializer + clos:make-method-lambda clos:generic-function-lambda-list + clos::compute-slots) + #+sbcl '(sb-pcl:class-of sb-pcl:class-name sb-pcl:class-slots sb-pcl:find-class sb-pcl::standard-class sb-pcl:slot-definition-name sb-pcl::finalize-inheritance @@ -65,9 +84,7 @@ sb-pcl:class-prototype sb-pcl:generic-function-method-class sb-pcl:intern-eql-specializer sb-pcl:make-method-lambda sb-pcl:generic-function-lambda-list sb-pcl::compute-slots) - #+kmr-cmucl-mop - '(pcl::compute-effective-slot-definition-initargs) - #+kmr-cmucl-pcl + #+cmu '(pcl:class-of pcl:class-name pcl:class-slots pcl:find-class pcl::standard-class pcl::slot-definition-name pcl:finalize-inheritance pcl::standard-direct-slot-definition pcl::standard-effective-slot-definition @@ -79,8 +96,16 @@ pcl:make-method-lambda pcl:generic-function-lambda-list pcl::compute-slots) #+scl - '(clos::compute-effective-slot-definition-initargs - clos::class-prototype + '(class-of class-name class-slots find-class clos::standard-class + clos::slot-definition-name clos:finalize-inheritance + clos::standard-direct-slot-definition clos::standard-effective-slot-definition + clos::validate-superclass clos:direct-slot-definition-class + clos:compute-effective-slot-definition + clos::compute-effective-slot-definition-initargs + clos::slot-value-using-class + clos:class-prototype clos:generic-function-method-class clos:intern-eql-specializer + clos:make-method-lambda clos:generic-function-lambda-list + clos::compute-slots ;; note: make-method-lambda is not fbound )) @@ -90,7 +115,7 @@ standard-direct-slot-definition standard-effective-slot-definition validate-superclass direct-slot-definition-class compute-effective-slot-definition - #+allero excl::compute-effective-slot-definition-initargs + compute-effective-slot-definition-initargs slot-value-using-class class-prototype generic-function-method-class intern-eql-specializer make-method-lambda generic-function-lambda-list -- 2.34.1