From ae3cc393587906ab01784f5e82b2c63df282c276 Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Tue, 22 Apr 2003 13:16:35 +0000
Subject: [PATCH] 	* src/pcl/rt/make-instance.lisp (make-instance.32):
 New test.

---
 pcl/rt/make-instance.lisp | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/pcl/rt/make-instance.lisp b/pcl/rt/make-instance.lisp
index e727efab4..075b29ab0 100644
--- a/pcl/rt/make-instance.lisp
+++ b/pcl/rt/make-instance.lisp
@@ -28,7 +28,7 @@
 ;;; DAMAGE.
 
 #+cmu
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/rt/make-instance.lisp,v 1.2 2003/03/22 16:15:14 gerd Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/rt/make-instance.lisp,v 1.3 2003/04/22 13:16:35 gerd Rel $")
 
 (in-package "PCL-TEST")
 
@@ -388,4 +388,14 @@
       *m30*)
   t)
 
+(defclass mi13 ()
+  ((s1 :initarg :s1a :initarg :s1b :reader s1)
+   (s2 :initarg :s2 :reader s2)))
+
+(define-mi-test make-instance.32
+    (with-slots (s1 s2) 
+	(make-instance 'mi13 :s2 'a :s1a 'b :s2 'x :s1a 'y :s1b 'z)
+      (values s1 s2))
+  :values (b a))
+
 ;; (setf find-class), class redefinitions
-- 
GitLab