From 8b2efa31dcb19f6c211eac9362d424cd70de88bb Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 17 May 2008 23:17:32 +0000
Subject: 	* interp/sys-constants.boot ($BuiltinAttributes): Rename from 
    *ATTRIBUTES*. 	* interp/as.boot (asyFindAttrs): Adjust use. 	*
 interp/daase.lisp (WRITE-COMPRESS): Likewise. 	* interp/g-cndata.boot
 (attribute?): Likewise.

---
 src/interp/as.boot            | 2 +-
 src/interp/daase.lisp         | 2 +-
 src/interp/g-cndata.boot      | 2 +-
 src/interp/sys-constants.boot | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/interp/as.boot b/src/interp/as.boot
index 4fcf7c01..dcb5bf80 100644
--- a/src/interp/as.boot
+++ b/src/interp/as.boot
@@ -975,7 +975,7 @@ asyFindAttrs l ==
   for x in l repeat 
     x0 := x
     while CONSP x repeat x := CAR x
-    if MEMQ(x, _*ATTRIBUTES_*) then attrs := [:attrs, x]
+    if MEMQ(x, $BuiltinAttributes) then attrs := [:attrs, x]
     else notattrs := [:notattrs, x0]
   [attrs, notattrs]
 
diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp
index a550539a..cc4f4268 100644
--- a/src/interp/daase.lisp
+++ b/src/interp/daase.lisp
@@ -1387,7 +1387,7 @@
   (finish-output out)
   (setq masterpos (file-position out))
   (setq compresslist
-        (append (|allConstructors|) (|allOperations|) *attributes*))
+        (append (|allConstructors|) (|allOperations|) |$BuiltinAttributes|))
   (push "algebra" compresslist)
   (push "failed" compresslist)
   (push 'signature compresslist)
diff --git a/src/interp/g-cndata.boot b/src/interp/g-cndata.boot
index 2477c18f..83c363b8 100644
--- a/src/interp/g-cndata.boot
+++ b/src/interp/g-cndata.boot
@@ -69,7 +69,7 @@ putConstructorProperty(name,prop,val) ==
   true
 
 attribute? name == 
-        MEMQ(name, _*ATTRIBUTES_*)
+        MEMQ(name, $BuiltinAttributes)
  
 abbreviation? abb ==
   -- if it is an abbreviation, return the corresponding name
diff --git a/src/interp/sys-constants.boot b/src/interp/sys-constants.boot
index 9b4b1109..12b11104 100644
--- a/src/interp/sys-constants.boot
+++ b/src/interp/sys-constants.boot
@@ -610,7 +610,7 @@ $FILETYPE_-TABLE ==
    ["SPADOUT", :"spout"]]
 
 +++
-_*ATTRIBUTES_* ==
+$BuiltinAttributes ==
  '(nil infinite arbitraryExponent approximate complex
    shallowMutable canonical noetherian central
    partiallyOrderedSet arbitraryPrecision canonicalsClosed
-- 
cgit v1.2.3