aboutsummaryrefslogtreecommitdiff
path: root/src/interp/daase.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/daase.lisp')
-rw-r--r--src/interp/daase.lisp6
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))