X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=mop.lisp;h=9a571b5d6823c4699e5f4e6f1acb253bce52bdbd;hb=152fd9dc7d5a0fb8079f3b18ecafff6aeb836a75;hp=995b368db06dd650d9a97b66ab85522cc9916057;hpb=5ef3317938a27c4fe0341ebe1ccc3fb453901cba;p=kmrcl.git

diff --git a/mop.lisp b/mop.lisp
index 995b368..9a571b5 100644
--- a/mop.lisp
+++ b/mop.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2003
 ;;;;
-;;;; $Id: mop.lisp,v 1.2 2003/04/29 03:50:42 kevin Exp $
+;;;; $Id: mop.lisp,v 1.3 2003/04/29 04:56:58 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -58,46 +58,44 @@
 
 (in-package #:kmr-mop)
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (shadowing-import
-   #+allegro
-   '(excl::compute-effective-slot-definition-initargs)
-   #+lispworks
-   '(clos::compute-effective-slot-definition-initargs)
-   #+kmr-sbcl-mop 
-   '(sb-pcl::compute-effective-slot-definition-initargs)
-   #+kmr-sbcl-pcl
-   '(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
-     sb-pcl::standard-direct-slot-definition
-     sb-pcl::standard-effective-slot-definition sb-pcl::validate-superclass
-     sb-pcl::direct-slot-definition-class sb-pcl::compute-effective-slot-definition
-     sb-pcl::compute-effective-slot-definition-initargs
-     sb-pcl::slot-value-using-class
-     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
-   '(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
-     pcl::validate-superclass pcl:direct-slot-definition-class
-     pcl:compute-effective-slot-definition
-     pcl::compute-effective-slot-definition-initargs
-     pcl::slot-value-using-class
-     pcl:class-prototype pcl:generic-function-method-class pcl:intern-eql-specializer
-     pcl:make-method-lambda pcl:generic-function-lambda-list
-     pcl::compute-slots)
-   #+scl
-   '(clos::compute-effective-slot-definition-initargs
-     clos::class-prototype
-     ;; note: make-method-lambda is not fbound
-     )
-   '#:kmr-mop))
-
+(shadowing-import
+ #+allegro
+ '(excl::compute-effective-slot-definition-initargs)
+ #+lispworks
+ '(clos::compute-effective-slot-definition-initargs)
+ #+kmr-sbcl-mop 
+ '(sb-pcl::compute-effective-slot-definition-initargs)
+ #+kmr-sbcl-pcl
+ '(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
+   sb-pcl::standard-direct-slot-definition
+   sb-pcl::standard-effective-slot-definition sb-pcl::validate-superclass
+   sb-pcl::direct-slot-definition-class sb-pcl::compute-effective-slot-definition
+   sb-pcl::compute-effective-slot-definition-initargs
+   sb-pcl::slot-value-using-class
+   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
+ '(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
+   pcl::validate-superclass pcl:direct-slot-definition-class
+   pcl:compute-effective-slot-definition
+   pcl::compute-effective-slot-definition-initargs
+   pcl::slot-value-using-class
+   pcl:class-prototype pcl:generic-function-method-class pcl:intern-eql-specializer
+   pcl:make-method-lambda pcl:generic-function-lambda-list
+   pcl::compute-slots)
+ #+scl
+ '(clos::compute-effective-slot-definition-initargs
+   clos::class-prototype
+   ;; note: make-method-lambda is not fbound
+   )
+ '#:kmr-mop)
 
 #+sbcl
 (eval-when (:compile-toplevel :load-toplevel :execute)