X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=mop.lisp;fp=mop.lisp;h=cad16f328edfa52a2464e9b996a67e8c562a4cdd;hp=73f949903cd7d61da67f637d551ace80cba9c922;hb=858422593b76417361614970d9b84f462f58b6d9;hpb=ab663bd390b95de44dd144fbeea504e0ed2e5d2d

diff --git a/mop.lisp b/mop.lisp
index 73f9499..cad16f3 100644
--- a/mop.lisp
+++ b/mop.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2003
 ;;;;
-;;;; $Id: mop.lisp,v 1.8 2003/04/29 05:54:24 kevin Exp $
+;;;; $Id: mop.lisp,v 1.9 2003/04/29 05:57:24 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -73,7 +73,10 @@
      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
+   '(#+kmr-sbcl-mop class-of #-kmr-sbcl-mop sb-pcl:class-of
+     #+kmr-sbcl-mop class-name #-kmr-sbcl-mop sb-pcl:class-name
+     #+kmr-sbcl-mop class-slots #-kmr-sbcl-mop sb-pcl:class-slots
+     #+kmr-sbcl-mop find-class #-kmr-sbcl-mop sb-pcl:find-class
      sb-pcl::standard-class
      sb-pcl:slot-definition-name sb-pcl::finalize-inheritance
      sb-pcl::standard-direct-slot-definition