From 1dac80e26be2fdf61ab7c2add4c190979f7b1b3d Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Thu, 24 Apr 2003 07:00:02 +0000
Subject: [PATCH] r4619: Auto commit for Debian build

---
 debian/changelog |  6 ++++++
 package.lisp     | 55 ++++++++++++++++++++++++++++--------------------
 2 files changed, 38 insertions(+), 23 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index 19fa97b..8267f8a 100644
--- 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 9d9a718..be73baa 100644
--- 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))
 
-- 
2.34.1