diff options
author | dos-reis <gdr@axiomatics.org> | 2011-10-29 10:27:48 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-10-29 10:27:48 +0000 |
commit | 802ce3f7635ad4370303a959f7623509fded8528 (patch) | |
tree | 5668d5eac39f48d29c49382b93177ad2cb12c70a /src/interp/lisplib.boot | |
parent | d22ec6786bb2f413f780b42b34f4fe652c9254e7 (diff) | |
download | open-axiom-802ce3f7635ad4370303a959f7623509fded8528.tar.gz |
* interp/define.boot (getInfovecCode): Take a DB argument. Pass
it to callees. Adjust caller.
* interp/database.boot (getConstructorPredicates): If contructor
is being defined, return the predicates as currently known.
* interp/daase.lisp (INITIAL-GETDATABASE): Remove
(fillDatabasesInCore): Adjust.
Diffstat (limited to 'src/interp/lisplib.boot')
-rw-r--r-- | src/interp/lisplib.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 6c6e3018..639db319 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -64,7 +64,7 @@ simplifyAttributeAlist(db,al) == [[a,:pred],:simplifyAttributeAlist(db,s)] nil -NRTgenFinalAttributeAlist e == +NRTgenFinalAttributeAlist(db,e) == [[a,:k] for [a,:b] in $NRTattributeAlist | (k := predicateBitIndex(b,e)) ~= -1] |