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(-)
(limited to 'src')
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