diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-05-17 23:17:32 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-05-17 23:17:32 +0000 |
| commit | 8b2efa31dcb19f6c211eac9362d424cd70de88bb (patch) | |
| tree | 6b98fb21f7adae58d30711c0e8322ff8ab0a94f1 | |
| parent | 12c08d022465104b0a0366689700bab191857aac (diff) | |
| download | open-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.
| -rw-r--r-- | src/interp/as.boot | 2 | ||||
| -rw-r--r-- | src/interp/daase.lisp | 2 | ||||
| -rw-r--r-- | src/interp/g-cndata.boot | 2 | ||||
| -rw-r--r-- | 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 |