diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-06-05 01:25:56 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-06-05 01:25:56 +0000 |
| commit | ee0a8b815d21cb3078bcd0c4cc4346d45173f6c5 (patch) | |
| tree | 787d70847fab4edee885bd2d980d624ec584e0a2 /src/boot | |
| parent | a5bc3112535fedf39455a5274d04103ac2385b26 (diff) | |
| download | open-axiom-ee0a8b815d21cb3078bcd0c4cc4346d45173f6c5.tar.gz | |
* boot/ast.boot: Remove debugging statement.
* driver/Makefile.in (open-axiom$(EXEEXT)): Link statically.
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/ast.boot | 1 | ||||
| -rw-r--r-- | src/boot/strap/ast.clisp | 2 | ||||
| -rw-r--r-- | src/boot/strap/parser.clisp | 2 | ||||
| -rw-r--r-- | src/boot/strap/translator.clisp | 2 |
4 files changed, 2 insertions, 5 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot index 3201d249..5cf0176a 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -176,7 +176,6 @@ bfDo x == bfAtScope(s,x) == ["LET",[["*PACKAGE*",s]],x] -TRACE bfAtScope bfAppend: %List %List %Form -> %List %Form bfAppend ls == diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp index ca008b4b..c29dc0b2 100644 --- a/src/boot/strap/ast.clisp +++ b/src/boot/strap/ast.clisp @@ -218,8 +218,6 @@ (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|)) diff --git a/src/boot/strap/parser.clisp b/src/boot/strap/parser.clisp index 925e9a4f..9b36ba0d 100644 --- a/src/boot/strap/parser.clisp +++ b/src/boot/strap/parser.clisp @@ -356,7 +356,7 @@ (COND (|done| (RETURN NIL)) (T (SETQ |found| - (LET ((#0=#:G1355 + (LET ((#0=#:G1354 (CATCH :OPEN-AXIOM-CATCH-POINT (APPLY |f| NIL)))) (COND diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index 54c28449..fa3d131c 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -513,7 +513,7 @@ (SETQ |$bpParenCount| 0) (|bpFirstTok|) (SETQ |found| - (LET ((#0=#:G1365 + (LET ((#0=#:G1364 (CATCH :OPEN-AXIOM-CATCH-POINT (|bpOutItem|)))) (COND ((AND (CONSP #0#) |