diff options
| -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 |