From cfda765b2e6342596df91ac9d4110f3fa95f5d75 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 16 May 2011 19:51:01 +0000
Subject: 	* boot/ast.boot (bfAtScope): New. 	* boot/parser.boot
 (bpDo): Accept scoped expressions. 	* boot/translator.boot: Cleanup.

---
 src/boot/strap/ast.clisp | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/boot/strap/ast.clisp')

diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp
index 74194f69..d0e75830 100644
--- a/src/boot/strap/ast.clisp
+++ b/src/boot/strap/ast.clisp
@@ -199,6 +199,11 @@
 
 (DEFUN |bfDo| (|x|) |x|)
 
+(DEFUN |bfAtScope| (|s| |x|)
+  (LIST 'LET (LIST (LIST '*PACKAGE* |s|)) |x|))
+
+(EVAL-WHEN (:EXECUTE :LOAD-TOPLEVEL) (TRACE |bfAtScope|))
+
 (DECLAIM (FTYPE (FUNCTION ((|%List| (|%List| |%Form|)))
                     (|%List| |%Form|))
                 |bfAppend|))
-- 
cgit v1.2.3