diff options
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 4ec36c16..334e444d 100644 --- a/src/interp/daase.lisp +++ b/src/interp/daase.lisp @@ -451,7 +451,7 @@ |Variable| |Vector|)) (dolist (con constructormodemapAndoperationalist) - (|getConstructorModemapFromDB| con) + (|getConstructorModemap| con) (|getConstructorOperationsFromDB| con)) (setq operation '(|+| |-| |*| |/| |**| @@ -725,7 +725,7 @@ (format t "~a: ~a~%" 'operation (|getOperationFromDB| constructor)) (format t "~a: ~%" 'constructormodemap) - (pprint (|getConstructorModemapFromDB| constructor)) + (pprint (|getConstructorModemap| constructor)) (format t "~&~a: ~%" 'constructorcategory) (pprint (|getConstructorCategoryFromDB| constructor)) (format t "~&~a: ~%" 'operationalist) @@ -820,7 +820,7 @@ (when (setq struct (|constructorDB| constructor)) (setq data (database-constructorcategory struct)) (when (null data) ;domain or package then subfield of constructormodemap - (setq data (cadar (|getConstructorModemapFromDB| constructor)))))) + (setq data (cadar (|getConstructorModemap| constructor)))))) (operationalist (setq stream *interp-stream*) (when (setq struct (|constructorDB| constructor)) |