From abd2b49e66adf06d16d6664526f693e67bdaf719 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 19 Dec 2010 00:42:27 +0000
Subject: 	* boot/translator.boot (BOOTTOCL): Replace Lisp-level contruct
 	with try/finally. 	(BOOTTOCLC): Likewise.

---
 src/boot/strap/translator.clisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/boot/strap')

diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp
index c9b972c4..e96bf98a 100644
--- a/src/boot/strap/translator.clisp
+++ b/src/boot/strap/translator.clisp
@@ -507,7 +507,7 @@
         (SETQ |$bpParenCount| 0)
         (|bpFirstTok|)
         (SETQ |found|
-              (LET ((#0=#:G1354
+              (LET ((#0=#:G1356
                         (CATCH :OPEN-AXIOM-CATCH-POINT (|bpOutItem|))))
                 (COND
                   ((AND (CONSP #0#)
-- 
cgit v1.2.3