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/patches.lisp.pamphlet | 1 - 1 file changed, 1 deletion(-) (limited to 'src/interp/patches.lisp.pamphlet') diff --git a/src/interp/patches.lisp.pamphlet b/src/interp/patches.lisp.pamphlet index 82977f1f..82961a1e 100644 --- a/src/interp/patches.lisp.pamphlet +++ b/src/interp/patches.lisp.pamphlet @@ -221,7 +221,6 @@ previous definition. (define-function 'SUBSTQ #'SUBSTEQ) ;; needed for substNames (always copy) #+(and :lucid (not :ibm/370)) (define-function 'RUN-AIX-PROGRAM #'SYS:RUN-AIX-PROGRAM) -(setq |$specialCharacters| |$plainRTspecialCharacters|) ;; following should be no longer necessary ;; (eval-when (eval load compile) (shadow 'delete)) ;; (define-function 'boot::delete #'|delete|) -- cgit v1.2.3