diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-15 03:40:45 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-15 03:40:45 +0000 |
| commit | a03f99212855569fc0298734521a6468df4b2e00 (patch) | |
| tree | 7bdce4387b43f27e285d07b08022a5ba34eea94f /src/boot | |
| parent | 683b15834757e0ccb39afe72bb46c4d644ce033e (diff) | |
| download | open-axiom-a03f99212855569fc0298734521a6468df4b2e00.tar.gz | |
* boot/tokens.boot: canonicalFilename is now a builtin function.
* interp/sys-driver.boot (executeSpadScript): Announce input file.
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/strap/tokens.clisp | 1 | ||||
| -rw-r--r-- | src/boot/tokens.boot | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index ecc3ce7e..de719a77 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -206,6 +206,7 @@ (LIST (LIST '|alphabetic?| 'ALPHA-CHAR-P) (LIST '|and| 'AND) (LIST '|append| 'APPEND) (LIST '|apply| 'APPLY) (LIST '|atom| 'ATOM) + (LIST '|canonicalFilename| 'PROBE-FILE) (LIST '|char?| 'CHARACTERP) (LIST '|cons?| 'CONSP) (LIST '|copy| 'COPY) (LIST '|croak| 'CROAK) (LIST '|digit?| 'DIGITP) (LIST '|drop| 'DROP) diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot index e3d7bdf0..8122782f 100644 --- a/src/boot/tokens.boot +++ b/src/boot/tokens.boot @@ -244,6 +244,7 @@ for i in [ _ ["append", "APPEND"] , _ ["apply", "APPLY"] , _ ["atom", "ATOM"] , _ + ["canonicalFilename", "PROBE-FILE"], _ ["char?", "CHARACTERP"] , _ ["cons?", "CONSP"] , _ ["copy", "COPY"] , _ |