From b5cf6ab007901739c5dd79e2a5fee29bc240ebec Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Thu, 3 Apr 2003 11:40:37 +0000
Subject: [PATCH] 	* pcl/std-class.lisp (ensure-class-using-class): Pass
 initargs 	to change-class.

---
 pcl/std-class.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pcl/std-class.lisp b/pcl/std-class.lisp
index 1a08ecf0f..212e76519 100644
--- a/pcl/std-class.lisp
+++ b/pcl/std-class.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.48 2003/03/30 21:17:03 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/std-class.lisp,v 1.49 2003/04/03 11:40:37 gerd Exp $")
 
 (in-package :pcl)
 
@@ -368,7 +368,7 @@
   (multiple-value-bind (meta initargs)
       (ensure-class-values class args)
     (unless (eq (class-of class) meta)
-      (change-class class meta))
+      (apply #'change-class class meta initargs))
     (apply #'reinitialize-instance class initargs)
     (setf (find-class name) class)
     (inform-type-system-about-class class name)
-- 
GitLab