diff --git a/pcl/rt/ctor.lisp b/pcl/rt/ctor.lisp index 2ea08f5fde6dc018172cfb044f6d9dd7626ec1e3..9c486b8bc49e74989cb87ba8a55378a2dea074f4 100644 --- a/pcl/rt/ctor.lisp +++ b/pcl/rt/ctor.lisp @@ -28,7 +28,7 @@ ;;; DAMAGE. #+cmu -(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/rt/ctor.lisp,v 1.5 2003/05/03 14:46:12 gerd Exp $") +(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/rt/ctor.lisp,v 1.6 2003/05/13 10:22:09 gerd Exp $") (in-package "PCL-TEST") @@ -135,7 +135,9 @@ (si (pcl::compute-applicable-methods #'shared-initialize (list proto t)))) (setf (pcl::ctor-class ctor) class) - (funcall generator ctor ii si))) + (if (eq generator #'pcl::fallback-generator) + (funcall generator ctor) + (funcall generator ctor ii si)))) (deftest fallback-generator.0 (let ((fn (call-generator #'pcl::fallback-generator