From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Tue, 29 Apr 2003 05:57:24 +0000 (+0000)
Subject: r4685: Auto commit for Debian build
X-Git-Tag: v1.96~246
X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=commitdiff_plain;h=858422593b76417361614970d9b84f462f58b6d9

r4685: Auto commit for Debian build
---

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