r4619: Auto commit for Debian build

diff --git a/debian/changelog b/debian/changelog
index 19fa97bfbc0a9f12d033b764059c0dbb3a971935..8267f8a7e9c4a5b4b8996b0126bd39d72b3d8f39 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-hyperobject (2.6.5-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Thu, 24 Apr 2003 00:55:02 -0600
+
 cl-hyperobject (2.6.4-1) unstable; urgency=low
 
   * New upstream

diff --git a/package.lisp b/package.lisp
index 9d9a718999438a95927eb12d9fcda1213eb0c9ee..be73baa0c8e2aac79a14d9811c24e947691e81d2 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: package.lisp,v 1.42 2003/04/15 05:18:22 kevin Exp $
+;;;; $Id: package.lisp,v 1.43 2003/04/24 07:00:02 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
 ;;;; *************************************************************************
@@ -23,11 +23,18 @@
       (pushnew :kmr-sbcl-mop cl:*features*)
       (pushnew :kmr-sbcl-pcl cl:*features*)))
 
+#+cmu
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (if (find-package 'mop)
+      (pushnew :kmr-cmucl-mop cl:*features*)
+      (pushnew :kmr-cmucl-pcl cl:*features*)))
+
 
 (defpackage #:hyperobject
   (:nicknames #:ho)
   (:use #:common-lisp #:kmrcl
        #+kmr-sbcl-mop #:sb-mop
+       #+kmr-cmucl-mop #:mop
        #+allegro #:mop
        #+lispworks #:clos)
   (:export
@@ -65,28 +72,30 @@
      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)
-  #+cmu
-  '(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)
-  #+scl
-  '(clos:class-slots clos::standard-class
-    clos::slot-definition-name clos:finalize-inheritance
-    clos::standard-direct-slot-definition clos::standard-effective-slot-definition
-    clos::validate-superclass clos:direct-slot-definition-class
-    clos:compute-effective-slot-definition
-    clos::compute-effective-slot-definition-initargs
-    clos::slot-value-using-class
-    clos::class-prototype clos:generic-function-method-class
-    ;; note: make-method-lambda is not fbound
-    clos:intern-eql-specializer clos:make-method-lambda
-    clos:generic-function-lambda-list)
+   #+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)
+   #+scl
+   '(clos:class-slots clos::standard-class
+     clos::slot-definition-name clos:finalize-inheritance
+     clos::standard-direct-slot-definition clos::standard-effective-slot-definition
+     clos::validate-superclass clos:direct-slot-definition-class
+     clos:compute-effective-slot-definition
+     clos::compute-effective-slot-definition-initargs
+     clos::slot-value-using-class
+     clos::class-prototype clos:generic-function-method-class
+     ;; note: make-method-lambda is not fbound
+     clos:intern-eql-specializer clos:make-method-lambda
+     clos:generic-function-lambda-list)
   
    :hyperobject))