diff options
author | dos-reis <gdr@axiomatics.org> | 2008-04-12 17:18:32 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-04-12 17:18:32 +0000 |
commit | 3c748c0ab1f5119528ae3ae41cc144371b1b375c (patch) | |
tree | ca305a2290cc49f30064d0f5e17a8301fd83c614 /src/interp/daase.lisp | |
parent | c65ac216959772cd6955c9dc050b98d38d7492da (diff) | |
download | open-axiom-3c748c0ab1f5119528ae3ae41cc144371b1b375c.tar.gz |
* interp/ax.boot: Use getConstructorModemap throughout.
* interp/br-data.boot: Likewise.
* interp/br-op1.boot: Likewise.
* interp/br-prof.boot: Likewise.
* interp/br-search.boot: Likewise.
* interp/br-util.boot: Likewise.
* interp/cattable.boot: Likewise.
* interp/daase.lisp: Likewise.
* interp/g-util.boot: Likewise.
* interp/lisplib.boot: Likewise.
* interp/nrunopt.boot: Likewise.
Diffstat (limited to 'src/interp/daase.lisp')
-rw-r--r-- | src/interp/daase.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp index 93524aff..dd9a7a8b 100644 --- a/src/interp/daase.lisp +++ b/src/interp/daase.lisp @@ -374,7 +374,7 @@ |UniversalSegment| |Variable| |Vector|)) (dolist (con constructormodemapAndoperationalist) - (getdatabase con 'constructormodemap) + (|getConstructorModemap| con) (getdatabase con 'operationalist)) (setq operation '( |+| |-| |*| |/| |**| |coerce| |convert| |elt| |equation| @@ -573,7 +573,7 @@ (format t "~a: ~a~%" 'operation (getdatabase constructor 'operation)) (format t "~a: ~%" 'constructormodemap) - (pprint (getdatabase constructor 'constructormodemap)) + (pprint (|getConstructorModemap| constructor)) (format t "~&~a: ~%" 'constructorcategory) (pprint (getdatabase constructor 'constructorcategory)) (format t "~&~a: ~%" 'operationalist) @@ -665,7 +665,7 @@ (when (setq struct (get constructor 'database)) (setq data (database-constructorcategory struct)) (when (null data) ;domain or package then subfield of constructormodemap - (setq data (cadar (getdatabase constructor 'constructormodemap)))))) + (setq data (cadar (|getConstructorModemap| constructor)))))) (operationalist (setq stream *interp-stream*) (when (setq struct (get constructor 'database)) |