From 5aa380ac80b14927f93494061568c868631c58eb Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 29 Aug 2009 10:20:34 +0000 Subject: * boot/translator.boot (bpOutItem): Move to parser.boot. * boot/parser.boot (bpExceptionTail): Fix typo. (bpOutItem): Move from translator.boot. --- src/boot/strap/translator.clisp | 29 ----------------------------- 1 file changed, 29 deletions(-) (limited to 'src/boot/strap/translator.clisp') diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index 056fe0ec..2a886455 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -723,35 +723,6 @@ (LIST (LIST 'IN-PACKAGE (STRING |n|)))))) (T (LIST (|translateToplevelExpression| |b|)))))))))) -(DEFUN |bpOutItem| () - (PROG (|r| |ISTMP#2| |l| |ISTMP#1| |b|) - (DECLARE (SPECIAL |$InteractiveMode| |$op|)) - (RETURN - (PROGN - (SETQ |$op| NIL) - (OR (|bpComma|) (|bpTrap|)) - (SETQ |b| (|bpPop1|)) - (|bpPush| - (COND - ((EQCAR |b| '+LINE) (LIST |b|)) - ((AND (CONSP |b|) (EQ (CAR |b|) 'L%T) - (PROGN - (SETQ |ISTMP#1| (CDR |b|)) - (AND (CONSP |ISTMP#1|) - (PROGN - (SETQ |l| (CAR |ISTMP#1|)) - (SETQ |ISTMP#2| (CDR |ISTMP#1|)) - (AND (CONSP |ISTMP#2|) - (EQ (CDR |ISTMP#2|) NIL) - (PROGN - (SETQ |r| (CAR |ISTMP#2|)) - 'T))))) - (IDENTP |l|)) - (COND - (|$InteractiveMode| (LIST (LIST 'SETQ |l| |r|))) - (#0='T (LIST (LIST 'DEFPARAMETER |l| |r|))))) - (#0# (|translateToplevel| |b| NIL)))))))) - (DEFUN |shoeAddbootIfNec| (|s|) (|shoeAddStringIfNec| ".boot" |s|)) (DEFUN |shoeRemovebootIfNec| (|s|) -- cgit v1.2.3