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