diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-26 15:11:03 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-26 15:11:03 +0000 |
| commit | 6dad3130683652a42a8e73c417333b53102d7943 (patch) | |
| tree | 7ea94fd464988ccbb66ebbdfa34d5006069264da /src/boot | |
| parent | 425777c747c5972163c1743d6d0ad0216eabf066 (diff) | |
| download | open-axiom-6dad3130683652a42a8e73c417333b53102d7943.tar.gz | |
* boot/tokens.boot: freshLine, functionSymbol?, and symbolGlobal?
are now builin.
* boot/ast.boot: Tidy.
* interp/c-util.boot: Likewise.
* interp/br-saturn.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/i-output.boot: Likewise.
* interp/clam.boot: Likewise.
* interp/trace.boot: Likewise.
* interp/sys-utility.boot: Likewise.
* interp/sys-driver.boot: Likewise.
* interp/lisplib.boot: Likewise.
* interp/lisp-backend.boot: Likewise.
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/ast.boot | 6 | ||||
| -rw-r--r-- | src/boot/strap/tokens.clisp | 5 | ||||
| -rw-r--r-- | src/boot/tokens.boot | 3 |
3 files changed, 9 insertions, 5 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot index 3d21b6f7..fe569735 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -1050,9 +1050,9 @@ shoeATOMs x == isDynamicVariable x == symbol? x and bfBeginsDollar x => symbolMember?(x,$constantIdentifiers) => false - CONSTANTP x => false - BOUNDP x or $activeNamespace = nil => true - y := symbolBinding(symbolName x,$activeNamespace) => not CONSTANTP y + readOnly? x => false + symbolGlobal? x or $activeNamespace = nil => true + y := symbolBinding(symbolName x,$activeNamespace) => not readOnly? y true false diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index 34e00c36..4c088f8d 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -218,7 +218,8 @@ (LIST '|exit| 'EXIT) (LIST '|false| 'NIL) (LIST '|fifth| 'FIFTH) (LIST '|first| 'CAR) (LIST '|float?| 'FLOATP) (LIST '|flushOutput| 'FORCE-OUTPUT) (LIST '|fourth| 'CADDDR) - (LIST '|function?| 'FUNCTIONP) (LIST '|gensym| 'GENSYM) + (LIST '|freshLine| 'FRESH-LINE) (LIST '|function?| 'FUNCTIONP) + (LIST '|functionSymbol?| 'FBOUNDP) (LIST '|gensym| 'GENSYM) (LIST '|genvar| 'GENVAR) (LIST '|integer?| 'INTEGERP) (LIST 'LAST '|last|) (LIST '|list| 'LIST) (LIST '|listEq?| 'EQUAL) (LIST '|lowerCase?| 'LOWER-CASE-P) (LIST '|makeSymbol| 'INTERN) @@ -238,7 +239,7 @@ (LIST '|subSequence| 'SUBSEQ) (LIST '|symbolBinding| 'FIND-SYMBOL) (LIST '|symbolScope| 'SYMBOL-PACKAGE) (LIST '|symbolEq?| 'EQ) (LIST '|symbolFunction| 'SYMBOL-FUNCTION) - (LIST '|symbolName| 'SYMBOL-NAME) + (LIST '|symbolGlobal?| 'BOUNDP) (LIST '|symbolName| 'SYMBOL-NAME) (LIST '|symbolValue| 'SYMBOL-VALUE) (LIST '|symbol?| 'SYMBOLP) (LIST '|third| 'CADDR) (LIST '|toString| 'WRITE-TO-STRING) (LIST '|true| 'T) (LIST '|upperCase?| 'UPPER-CASE-P) diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot index 7b0c786f..8af76c86 100644 --- a/src/boot/tokens.boot +++ b/src/boot/tokens.boot @@ -287,7 +287,9 @@ for i in [ _ ["float?", "FLOATP"] , _ ["flushOutput", "FORCE-OUTPUT"], _ ["fourth", "CADDDR"] , _ + ["freshLine", "FRESH-LINE" ], _ ["function?","FUNCTIONP"] , _ + ["functionSymbol?", "FBOUNDP"] , _ ["gensym", "GENSYM"] , _ ["genvar", "GENVAR"] , _ ["integer?","INTEGERP"] , _ @@ -326,6 +328,7 @@ for i in [ _ ["symbolScope", "SYMBOL-PACKAGE"] , _ ["symbolEq?", "EQ"], _ ["symbolFunction", "SYMBOL-FUNCTION"], _ + ["symbolGlobal?", "BOUNDP"], _ ["symbolName", "SYMBOL-NAME"], _ ["symbolValue", "SYMBOL-VALUE"], _ ["symbol?", "SYMBOLP"] , _ |