diff options
| -rw-r--r-- | src/interp/daase.lisp | 4 | ||||
| -rw-r--r-- | src/interp/database.boot | 4 |
2 files changed, 2 insertions, 6 deletions
diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp index 294936ff..86504bdb 100644 --- a/src/interp/daase.lisp +++ b/src/interp/daase.lisp @@ -655,8 +655,6 @@ (setq data (|dbModule| struct)))) (constructor? (|fatalError| "GETDATABASE called with CONSTRUCTOR?")) - (constructor - (when (setq data (get constructor 'abbreviationfor)))) (defaultdomain (setq data (cadr (assoc constructor *defaultdomain-list*)))) (sourcefile @@ -691,8 +689,6 @@ (setf (|dbModemaps| struct) data)) (object (setf (|dbModule| struct) data)) - (constructor - (setf (|dbConstructor| struct) data)) (documentation (setf (database-documentation struct) data)) (users diff --git a/src/interp/database.boot b/src/interp/database.boot index f7834c15..091b2ff9 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -153,9 +153,9 @@ getConstructorOperationsFromDB ctor == loadDBIfNecessary db dbOperations db -getConstructorFullNameFromDB: %Symbol -> %Symbol +getConstructorFullNameFromDB: %Symbol -> %Maybe %Symbol getConstructorFullNameFromDB ctor == - GETDATABASE(ctor,"CONSTRUCTOR") + property(ctor,'ABBREVIATIONFOR) ++ returns a list of Boolean values indicating whether the ++ parameter type at the corresponding position is a category. |