diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-09-10 22:09:28 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-09-10 22:09:28 +0000 |
| commit | ef3f39b528532d50813b8754c8ca6ff3fce4f710 (patch) | |
| tree | 33ab580b4d422f3ad5f6c0511ec141b68baf4831 /src/interp/g-util.boot.pamphlet | |
| parent | 4c3b04a147779490fe4d0550eed178a8e5abda4c (diff) | |
| download | open-axiom-ef3f39b528532d50813b8754c8ca6ff3fce4f710.tar.gz | |
* i-output.boot.pamphlet ($defaultSpecialCharacters): Define as
constant.
($plainSpecialCharacters0): Likewise.
($plainSpecialCharacters1): Likewise.
($plainSpecialCharacters2): Likewise.
($plainSpecialCharacters3): Likewise.
($plainRTspecialCharacters): Likewise.
($RTspecialCharacters): Likewise.
($specialCharacterAlist): Likewise.
(makeCharacter): Define as macro.
(leftBindingPowerOf): Move from macros.lisp.pamphlet. Define as
Boot code.
(rightBindingPowerOf): Likewise.
* patches.lisp.pamphlet (|$specialCharacters|): Don't set here.
* Makefile.pamphlet (<<i-output.clisp>>): Remove.
* Makefile.in: Regenerate.
* macros.lisp.pamphlet (ELEMN): Move to g-util.boot.pamphlet.
(|leftBindingPowerOf|): Move to i-output.boot.pamphlet.
(|rightBindingPowerOf|): Likewise.
Diffstat (limited to 'src/interp/g-util.boot.pamphlet')
| -rw-r--r-- | src/interp/g-util.boot.pamphlet | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/interp/g-util.boot.pamphlet b/src/interp/g-util.boot.pamphlet index deaf2b5c..05e262c8 100644 --- a/src/interp/g-util.boot.pamphlet +++ b/src/interp/g-util.boot.pamphlet @@ -54,6 +54,11 @@ --% Utility Functions of General Use +ELEMN(x, n, d) == + null x => d + n = 1 => car x + ELEMN(cdr x, SUB1 n, d) + PPtoFile(x, fname) == stream := DEFIOSTREAM([['MODE, :'OUTPUT], ['FILE, :fname]], 80, 0) PRETTYPRINT(x, stream) |