diff --git a/pcl/rt/make-instance.lisp b/pcl/rt/make-instance.lisp index e727efab44b0c59e8b114bc84f598a8d12584c24..075b29ab091bef413af02cb2c25f6661c16a3d7d 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