From ef3f39b528532d50813b8754c8ca6ff3fce4f710 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 10 Sep 2007 22:09:28 +0000 Subject: * 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 (<>): Remove. * Makefile.in: Regenerate. * macros.lisp.pamphlet (ELEMN): Move to g-util.boot.pamphlet. (|leftBindingPowerOf|): Move to i-output.boot.pamphlet. (|rightBindingPowerOf|): Likewise. --- src/interp/g-util.boot.pamphlet | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/interp/g-util.boot.pamphlet') 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) -- cgit v1.2.3