diff options
| author | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-22 04:02:24 -0800 |
|---|---|---|
| committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-22 04:02:24 -0800 |
| commit | bb57192d02a82f2236857bcbd2accca4f01f4395 (patch) | |
| tree | 8d75c013e92345bc38670fe977d9c7ea11b07530 | |
| parent | 28501b2d6ae273f3be80b087f4e508ffcff3c182 (diff) | |
| download | open-axiom-bb57192d02a82f2236857bcbd2accca4f01f4395.tar.gz | |
getConstructorFullNameFromDB: get it directly.
| -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. |