From 475c265f56246f0155b4c2cafa723219fb75b383 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 1 Sep 1993 13:25:43 +0000
Subject: [PATCH] Don't consume for lexical breaksups that are dumpicates.

---
 compiler/byte-comp.lisp | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/compiler/byte-comp.lisp b/compiler/byte-comp.lisp
index 5f2eb3551..34295f893 100644
--- a/compiler/byte-comp.lisp
+++ b/compiler/byte-comp.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/byte-comp.lisp,v 1.21 1993/08/24 23:34:46 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/byte-comp.lisp,v 1.22 1993/09/01 13:25:43 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -417,10 +417,6 @@
   ;; Annotate the value for one value.
   (annotate-continuation (set-value set) 1))
 
-(defun real-local-call-p (node)
-  (and (combination-p node)
-))
-
 
 ;;; ANNOTATE-BASIC-COMBINATION-ARGS  --  Internal
 ;;; 
@@ -702,7 +698,13 @@
 		     (when (interesting cont)
 		       (push cont stack))))))
 	      (setf nlx-entry-p t))
-	     ((%catch-breakup %unwind-protect-breakup %lexical-exit-breakup)
+	     (%lexical-exit-breakup
+	      (unless (byte-nlx-info-duplicate
+		       (nlx-info-info
+			(continuation-value
+			 (first (basic-combination-args node)))))
+		(consume :nlx-entry)))
+	     ((%catch-breakup %unwind-protect-breakup)
 	      (consume :nlx-entry))))
 	  (cif
 	   (consume (if-test node)))
-- 
GitLab