aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-05-17 23:17:32 +0000
committerdos-reis <gdr@axiomatics.org>2008-05-17 23:17:32 +0000
commit8b2efa31dcb19f6c211eac9362d424cd70de88bb (patch)
tree6b98fb21f7adae58d30711c0e8322ff8ab0a94f1 /src/interp
parent12c08d022465104b0a0366689700bab191857aac (diff)
downloadopen-axiom-8b2efa31dcb19f6c211eac9362d424cd70de88bb.tar.gz
* 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.
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/as.boot2
-rw-r--r--src/interp/daase.lisp2
-rw-r--r--src/interp/g-cndata.boot2
-rw-r--r--src/interp/sys-constants.boot2
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