From bb57192d02a82f2236857bcbd2accca4f01f4395 Mon Sep 17 00:00:00 2001
From: Gabriel Dos Reis <gdr@axiomatics.org>
Date: Fri, 22 Jan 2016 04:02:24 -0800
Subject: getConstructorFullNameFromDB: get it directly.

---
 src/interp/daase.lisp    | 4 ----
 src/interp/database.boot | 4 ++--
 2 files changed, 2 insertions(+), 6 deletions(-)

(limited to 'src')

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.
-- 
cgit v1.2.3