[armedbear-cvs] r13891 - trunk/abcl/src/org/armedbear/lisp

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Thu Mar 22 07:16:13 2012
New Revision: 13891

Log:
Pass arguments along to (direct|effective)-slot-definition-class

Modified:
   trunk/abcl/src/org/armedbear/lisp/clos.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	Wed Mar 21 08:25:33 2012	(r13890)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Thu Mar 22 07:16:13 2012	(r13891)
@@ -443,7 +443,7 @@
   slot)
 
 (defun make-direct-slot-definition (class &rest args)
-  (let ((slot-class (direct-slot-definition-class class)))
+  (let ((slot-class (apply #'direct-slot-definition-class class args)))
     (if (eq slot-class +the-standard-direct-slot-definition-class+)
 	(let ((slot (make-slot-definition +the-standard-direct-slot-definition-class+)))
 	  (apply #'init-slot-definition slot :allocation-class class args)
@@ -454,7 +454,7 @@
 	    slot)))))
 
 (defun make-effective-slot-definition (class &rest args)
-  (let ((slot-class (effective-slot-definition-class class)))
+  (let ((slot-class (apply #'effective-slot-definition-class class args)))
     (if (eq slot-class +the-standard-effective-slot-definition-class+)
 	(let ((slot (make-slot-definition +the-standard-effective-slot-definition-class+)))
 	  (apply #'init-slot-definition slot args)