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