From c004aaccb8e9e9e1bc71bdb81ede97dc6c6f6ba4 Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Thu, 14 Nov 2002 16:58:27 +0000
Subject: [PATCH] Bug and solution from Eric Marsden:

The function GENERATE-BYTE-CODE-FOR-REF is calling COMBINATION-ARGS on
the return value of CONTINUATION-DEST. In the situation that I have
run into, the return value is of type MV-COMBINATION instead of
COMBINATION, so an error occurs.

Changing the COMBINATION-ARGS to BASIC-COMBINATION-ARGS seems to fix
the problem...
---
 compiler/byte-comp.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/byte-comp.lisp b/compiler/byte-comp.lisp
index 0ec0b13f8..89cd93e64 100644
--- a/compiler/byte-comp.lisp
+++ b/compiler/byte-comp.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/byte-comp.lisp,v 1.30 2002/03/31 14:48:36 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/byte-comp.lisp,v 1.31 2002/11/14 16:58:27 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1300,7 +1300,7 @@
 	    (output-push-fdefinition
 	     segment
 	     (if (and found
-		      (= (length (combination-args (continuation-dest cont)))
+		      (= (length (basic-combination-args (continuation-dest cont)))
 			 2))
 		 found
 		 name))))
-- 
GitLab