From 6381fc5ea5cad33ddcdc091e083f23047545e83d Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Mon, 21 Apr 2003 21:00:04 +0000 Subject: [PATCH] Fix for compiled MULTIPLE-VALUE-CALL.2 ANSI test case. * src/compiler/ir1tran.lisp (multiple-value-call): Remove symbol from the asserted type of fun-cont, because, if fun is a symbol, %coerce-to-function gets called. --- compiler/ir1tran.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index f985397e9..694d0f04a 100644 --- a/compiler/ir1tran.lisp +++ b/compiler/ir1tran.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.146 2003/04/19 20:52:42 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.147 2003/04/21 21:00:04 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -3261,7 +3261,7 @@ (%coerce-to-function ,fun))))) (setf (continuation-dest fun-cont) node) (assert-continuation-type - fun-cont (values-specifier-type '(values (or function symbol) &rest t))) + fun-cont (values-specifier-type '(values function &rest t))) (collect ((arg-conts)) (let ((this-start fun-cont)) (dolist (arg args) -- GitLab