From 5ef3317938a27c4fe0341ebe1ccc3fb453901cba Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Tue, 29 Apr 2003 03:54:40 +0000
Subject: [PATCH] r4676: Auto commit for Debian build

---
 attrib-class.lisp | 13 +++++--------
 kmrcl.asd         |  9 ++++++---
 mop.lisp          | 11 +++++++++--
 3 files changed, 20 insertions(+), 13 deletions(-)

diff --git a/attrib-class.lisp b/attrib-class.lisp
index ee88042..3e79325 100644
--- a/attrib-class.lisp
+++ b/attrib-class.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: attrib-class.lisp,v 1.8 2003/04/29 01:39:40 kevin Exp $
+;;;; $Id: attrib-class.lisp,v 1.9 2003/04/29 03:50:42 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -41,16 +41,13 @@ on example from AMOP"))
 					(superclass kmr-mop:standard-class))
   t)
 
-(defmethod kmr-mop:direct-slot-definition-class ((cl attributes-class)
-						 #+(or sbcl cmu scl lispworks)
-						 initargs
-						 #+(or allegro) &rest #+(or allegro) iargs)
-  ;;  (format t "attributes:~s iargs:~s~%" attributes iargs)
+(defmethod kmr-mop:direct-slot-definition-class ((cl attributes-class) #+kmr-normal-dsdc &rest initargs)
+  (declare (ignore initargs))
   (kmr-mop:find-class 'attributes-dsd))
 
 (defmethod kmr-mop:compute-effective-slot-definition :around
-    ((cl attributes-class) #+kmr-named-cesd name dsds)
-  #+kmr-named-cesd (declare (ignore name))
+    ((cl attributes-class) #+kmr-normal-cesd name dsds)
+  #+kmr-normal-cesd (declare (ignore name))
   (apply
    #'make-instance 'attributes-esd 
    :attributes (remove-duplicates (mapappend #'dsd-attributes dsds))
diff --git a/kmrcl.asd b/kmrcl.asd
index af360d8..4c2d1c0 100644
--- a/kmrcl.asd
+++ b/kmrcl.asd
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: kmrcl.asd,v 1.26 2003/04/29 00:23:21 kevin Exp $
+;;;; $Id: kmrcl.asd,v 1.27 2003/04/29 03:54:40 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -19,7 +19,9 @@
 (defpackage #:kmrcl-system (:use #:asdf #:cl))
 (in-package #:kmrcl-system)
 
-#+(or allegro cmucl lispworks sbcl scl) (pushnew :kmr-mop cl:*features*)
+#+(or allegro cmucl lispworks sbcl scl)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (pushnew :kmr-mop cl:*features*))
 
 (defsystem kmrcl
     :name "kmrcl"
@@ -56,4 +58,5 @@
   (oos 'test-op 'kmrcl-tests))
 
 #+kmr-mop
-(setq cl:*features* (delete :kmr-mop cl:*features*))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (setq cl:*features* (delete :kmr-mop cl:*features*)))
diff --git a/mop.lisp b/mop.lisp
index 5e4ba96..995b368 100644
--- a/mop.lisp
+++ b/mop.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2003
 ;;;;
-;;;; $Id: mop.lisp,v 1.1 2003/04/29 00:26:21 kevin Exp $
+;;;; $Id: mop.lisp,v 1.2 2003/04/29 03:50:42 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -116,5 +116,12 @@
 		     (ensure-generic-function
 		      'compute-effective-slot-definition)))
 	    3)
-    (pushnew :kmr-named-cesd cl:*features*)))
+    (pushnew :kmr-normal-cesd cl:*features*)))
+
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (when (>= (length (generic-function-lambda-list
+		    (ensure-generic-function
+		     'direct-slot-definition-class)))
+	    3)
+    (pushnew :kmr-normal-dsdc cl:*features*)))
 
-- 
2.34.1