From da760bc5431bb3ec73f3677e152c53cae9764fde Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 14 Jul 1992 17:51:16 +0000 Subject: [PATCH] Fixed IR2-CONVERT-ENTRY to correctly handle tagbodies with more than one tag that is non-locally exited to. --- compiler/ir2tran.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/compiler/ir2tran.lisp b/compiler/ir2tran.lisp index 635b1026e..dd6fff1b1 100644 --- a/compiler/ir2tran.lisp +++ b/compiler/ir2tran.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/ir2tran.lisp,v 1.43 1992/06/02 19:08:36 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.44 1992/07/14 17:51:16 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1496,8 +1496,7 @@ (when (and info (member (cleanup-kind (nlx-info-cleanup info)) '(:block :tagbody))) - (emit-nlx-start node block info nil) - (return)))) + (emit-nlx-start node block info nil)))) (undefined-value)) -- GitLab