diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-16 19:51:01 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-16 19:51:01 +0000 |
| commit | cfda765b2e6342596df91ac9d4110f3fa95f5d75 (patch) | |
| tree | 7ce481c4b5aa82371cd0a0a57fac7e2807e3dcbf /src/boot/strap/ast.clisp | |
| parent | 3537b6ab6e6696fb5def82cde4c9c9e843f84ce9 (diff) | |
| download | open-axiom-cfda765b2e6342596df91ac9d4110f3fa95f5d75.tar.gz | |
* boot/ast.boot (bfAtScope): New.
* boot/parser.boot (bpDo): Accept scoped expressions.
* boot/translator.boot: Cleanup.
Diffstat (limited to 'src/boot/strap/ast.clisp')
| -rw-r--r-- | src/boot/strap/ast.clisp | 5 |
1 files changed, 5 insertions, 0 deletions
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|)) |