aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authorGabriel Dos Reis <gdr@axiomatics.org>2016-01-22 04:02:24 -0800
committerGabriel Dos Reis <gdr@axiomatics.org>2016-01-22 04:02:24 -0800
commitbb57192d02a82f2236857bcbd2accca4f01f4395 (patch)
tree8d75c013e92345bc38670fe977d9c7ea11b07530 /src/interp
parent28501b2d6ae273f3be80b087f4e508ffcff3c182 (diff)
downloadopen-axiom-bb57192d02a82f2236857bcbd2accca4f01f4395.tar.gz
getConstructorFullNameFromDB: get it directly.
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/daase.lisp4
-rw-r--r--src/interp/database.boot4
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.