From 4a59904058b23f18702b074a8f945157f65f26d5 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 20 Apr 2008 15:12:01 +0000
Subject: 	* interp/fnewmeta.lisp: Don't overstep on use namespace with 
 Attribute, Signature, and Reduce. 	* interp/postpar.boot: Likewise. 
 * interp/ptrees.boot: Likewise.  Tidy. 	* interp/Makefile.pamphlet
 (ptrees.$(FASLEXT)): Don't compile as 	Old Boot.

---
 src/interp/fnewmeta.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/interp/fnewmeta.lisp')

diff --git a/src/interp/fnewmeta.lisp b/src/interp/fnewmeta.lisp
index feab45b8..b7806f20 100644
--- a/src/interp/fnewmeta.lisp
+++ b/src/interp/fnewmeta.lisp
@@ -424,13 +424,13 @@
                (MUST (OR (AND (MATCH-ADVANCE-STRING ":")
                               (MUST (|PARSE-Expression|))
                               (PUSH-REDUCTION '|PARSE-Category|
-                                  (CONS '|Signature|
+                                  (CONS '|%Signature|
                                         (CONS (POP-STACK-2)
                                          (CONS (POP-STACK-1) NIL))))
                               (ACTION (|recordSignatureDocumentation|
                                        (NTH-STACK 1) G1)))
                          (AND (PUSH-REDUCTION '|PARSE-Category|
-                                  (CONS '|Attribute|
+                                  (CONS '|%Attribute|
                                         (CONS (POP-STACK-1) NIL)))
                               (ACTION (|recordAttributeDocumentation|
                                        (NTH-STACK 1) G1)))))))))) 
@@ -660,7 +660,7 @@
 (DEFUN |PARSE-Reduction| ()
   (AND (|PARSE-ReductionOp|) (MUST (|PARSE-Expr| 1000))
        (PUSH-REDUCTION '|PARSE-Reduction|
-           (CONS '|Reduce|
+           (CONS '|%Reduce|
                  (CONS (POP-STACK-2) (CONS (POP-STACK-1) NIL)))))) 
 
 
-- 
cgit v1.2.3