From 367c6783cdf184c1f19ac8a5ee31630cacf8b980 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Mon, 17 May 2010 16:30:30 +0200 Subject: [PATCH] Minor simplification in C2FMLA-AND --- src/cmp/cmpif.lsp | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/src/cmp/cmpif.lsp b/src/cmp/cmpif.lsp index c241fa81e..0f874811d 100644 --- a/src/cmp/cmpif.lsp +++ b/src/cmp/cmpif.lsp @@ -227,13 +227,9 @@ (with-exit-label (normal-exit) (let* ((dest *destination*)) (cond ((and (consp dest) (eq (car dest) 'JUMP-TRUE)) - (let ((*exit* normal-exit) - (*unwind-exit* (cons normal-exit *unwind-exit*))) - (CJT *current-c2form* (second dest) normal-exit))) + (CJT *current-c2form* (second dest) normal-exit)) ((and (consp dest) (eq (car dest) 'JUMP-FALSE)) - (let ((*exit* normal-exit) - (*unwind-exit* (cons normal-exit *unwind-exit*))) - (CJF *current-c2form* normal-exit (second dest)))) + (CJF *current-c2form* normal-exit (second dest))) (t (with-exit-label (false-label) (loop for forms on args