From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Tue, 29 Apr 2003 04:59:51 +0000 (+0000)
Subject: r4680: Auto commit for Debian build
X-Git-Tag: v1.96~251
X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=commitdiff_plain;h=f0519dd7c4b8c99ace8accc9f7ed9c55136151b0

r4680: Auto commit for Debian build
---

diff --git a/mop.lisp b/mop.lisp
index 9a571b5..401a55d 100644
--- 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)