From 0ffce9a694dec6bd0aa89df9960c5f42436ce355 Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Tue, 13 May 2003 10:22:09 +0000 Subject: [PATCH] * src/pcl/rt/ctor.lisp (call-generator): Adapt to change if fallback-generator. --- pcl/rt/ctor.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/pcl/rt/ctor.lisp b/pcl/rt/ctor.lisp index 2ea08f5fd..9c486b8bc 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 -- GitLab