From 5aa380ac80b14927f93494061568c868631c58eb Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
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/parser.clisp | 31 ++++++++++++++++++++++++++++++-
 1 file changed, 30 insertions(+), 1 deletion(-)

(limited to 'src/boot/strap/parser.clisp')

diff --git a/src/boot/strap/parser.clisp b/src/boot/strap/parser.clisp
index 38e0da5d..c4e3cd30 100644
--- a/src/boot/strap/parser.clisp
+++ b/src/boot/strap/parser.clisp
@@ -781,7 +781,7 @@
 
 (DEFUN |bpExceptionTail| ()
   (AND (|bpEqKey| 'EXIT) (OR (|bpAssign|) (|bpTrap|))
-       (|bpPush| (|Exit| (|bpPop2|) (|bpPop1|)))))
+       (|bpPush| (|%Exit| (|bpPop2|) (|bpPop1|)))))
 
 (DEFUN |bpException| ()
   (AND (|bpExceptionHead|) (OR (|bpExceptionTail|) T)))
@@ -1196,3 +1196,32 @@
        (OR (|bpEqKey| 'EXIT) (|bpTrap|)) (OR (|bpWhere|) (|bpTrap|))
        (|bpPush| (|bfCaseItem| (|bpPop2|) (|bpPop1|)))))
 
+(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))))))))
+
-- 
cgit v1.2.3