From a011e6b4bbd97ee481e267a65efc1d0abcc07418 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 21 Jul 1992 18:45:34 +0000 Subject: [PATCH] Make the analogous change to CONVERT-MV-CALL. --- compiler/locall.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/compiler/locall.lisp b/compiler/locall.lisp index ed7f1089a..374a217ca 100644 --- a/compiler/locall.lisp +++ b/compiler/locall.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/locall.lisp,v 1.33 1992/07/21 17:27:05 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/locall.lisp,v 1.34 1992/07/21 18:45:34 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -374,6 +374,8 @@ ;;; We also use variable types for the called function to construct an ;;; assertion for the values continuation. ;;; +;;; See CONVERT-CALL for additional notes on MERGE-TAIL-SETS, etc. +;;; (defun convert-mv-call (ref call fun) (declare (type ref ref) (type mv-combination call) (type functional fun)) (when (and (looks-like-an-mv-bind fun) @@ -383,8 +385,8 @@ (let ((ep (car (last (optional-dispatch-entry-points fun))))) (setf (basic-combination-kind call) :local) (pushnew ep (lambda-calls (node-home-lambda call))) + (merge-tail-sets call ep) (change-ref-leaf ref ep) - (merge-tail-sets call) (assert-continuation-type (first (basic-combination-args call)) -- GitLab