From dd14d434d1d7d06cd90a5a8a0fd1bef6cfffda8f Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 11 Dec 2010 23:15:24 +0000
Subject: 	* interp/i-syscmd.boot: Use try-finally expression instead of
 Lisp 	primitive UNWIND-PROJECT. 	* interp/int-top.boot: Likewise. 
 * interp/lisplib.boot: Likewise. 	* interp/server.boot: Likewise. 
 * boot/parser.boot (bpHandler): Allow semicolon separation.

---
 src/boot/strap/parser.clisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/boot/strap')

diff --git a/src/boot/strap/parser.clisp b/src/boot/strap/parser.clisp
index 9cdd72cb..77744484 100644
--- a/src/boot/strap/parser.clisp
+++ b/src/boot/strap/parser.clisp
@@ -803,7 +803,9 @@
       (PROGN
         (SETQ |s| (|bpState|))
         (COND
-          ((AND (|bpEqKey| 'BACKSET) (|bpEqKey| |key|)) T)
+          ((AND (OR (|bpEqKey| 'BACKSET) (|bpEqKey| 'SEMICOLON))
+                (|bpEqKey| |key|))
+           T)
           (T (|bpRestore| |s|) NIL))))))
 
 (DEFUN |bpLeave| ()
-- 
cgit v1.2.3