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