r4680: Auto commit for Debian build

diff --git a/mop.lisp b/mop.lisp
index 9a571b5d6823c4699e5f4e6f1acb253bce52bdbd..401a55d85340355b6d8eceb4c2152bcd7fec3731 100644 (file)
--- a/mop.lisp
+++ b/mop.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2003
 ;;;;
-;;;; $Id: mop.lisp,v 1.3 2003/04/29 04:56:58 kevin Exp $
+;;;; $Id: mop.lisp,v 1.4 2003/04/29 04:59:51 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -41,20 +41,7 @@
    #+kmr-cmucl-mop #:mop
    #+allegro #:mop
    #+lispworks #:clos
-   #+scl #:clos)
-  (:export
-   #:class-of #:class-name #:class-slots #:find-class
-   #:standard-class
-   #:slot-definition-name #:finalize-inheritance
-   #:standard-direct-slot-definition
-   #:standard-effective-slot-definition #:validate-superclass
-   #:direct-slot-definition-class #:compute-effective-slot-definition
-   #: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
-   #:compute-slots)   
-   )
+   #+scl #:clos))
 
 (in-package #:kmr-mop)
 
@@ -97,6 +84,19 @@
    )
  '#:kmr-mop)
 
+(export '(#:class-of #:class-name #:class-slots #:find-class
+         #:standard-class
+         #:slot-definition-name #:finalize-inheritance
+         #:standard-direct-slot-definition
+         #:standard-effective-slot-definition #:validate-superclass
+         #:direct-slot-definition-class #:compute-effective-slot-definition
+         #: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
+         #:compute-slots))
+       
+         
 #+sbcl
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (if (find-package 'sb-mop)