r4672: Auto commit for Debian build

diff --git a/attrib-class.lisp b/attrib-class.lisp
index 1c15e345d27c5e3990be8e63d79421afd4069b8c..02bfb458ba7ef1b1ba376218d2eee2e4becf2b8c 100644 (file)
--- a/attrib-class.lisp
+++ b/attrib-class.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;

-;;;; $Id: attrib-class.lisp,v 1.6 2003/04/28 23:51:59 kevin Exp $
+;;;; $Id: attrib-class.lisp,v 1.7 2003/04/29 01:35:58 kevin Exp $

 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;


@@ -41,9 +41,11 @@ on example from AMOP"))
                                        (superclass kmr-mop:standard-class))
   t)
 
                                        (superclass kmr-mop:standard-class))
   t)
 

-(defmethod kmr-mop:direct-slot-definition-class ((cl attributes-class) 
-                                                &rest iargs &key attributes)
-  (declare (ignore attributes))
+(defmethod kmr-mop:direct-slot-definition-class ((cl attributes-class)
+                                                #+(or sbcl cmu scl lispworks)
+                                                initargs
+                                                #+(or allegro)
+                                                &rest iargs)

   ;;  (format t "attributes:~s iargs:~s~%" attributes iargs)
   (kmr-mop:find-class 'attributes-dsd))
 
   ;;  (format t "attributes:~s iargs:~s~%" attributes iargs)
   (kmr-mop:find-class 'attributes-dsd))
 

diff --git a/debian/changelog b/debian/changelog
index 075394f4b2ee518d655225944e1b4e7da9907736..9acc8881b40fbcc1f08ffffce4c3d76216106a9b 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,10 @@
+cl-kmrcl (1.32-1) unstable; urgency=low
+
+  * Vary signature of DIRECT-SLOT-DEFINITION-CLASS depending on 
+  implementation
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Mon, 28 Apr 2003 19:35:37 -0600
+

 cl-kmrcl (1.31-1) unstable; urgency=low
 
   * New upstream
 cl-kmrcl (1.31-1) unstable; urgency=low
 
   * New upstream