From 8796a8c7a9b8991befb18c39e826d7b29a342c13 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 19 Sep 2008 02:44:50 +0000
Subject: 	* interp/lisplib.boot (getConstructorSignature): Relax.

---
 src/interp/lisplib.boot | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot
index 641b2799..9bacec93 100644
--- a/src/interp/lisplib.boot
+++ b/src/interp/lisplib.boot
@@ -639,10 +639,10 @@ findDomainSlotNumber(domain,op,sig) == --using slot 1 of the domain
 
 getConstructorSignature: %Symbol -> %Form
 getConstructorSignature ctor ==
-  (mm := getConstructorModemapFromDB ctor) =>
-    [[.,:sig],:.] := mm
-    sig
-  nil
+  ([[.,:sig],:.] := getConstructorModemapFromDB ctor) => sig
+  -- If we have a local or forward declaration take it.
+  -- Note: constructors are not overloadable.
+  rest getmode(ctor,$e)
  
 getSlotFromCategoryForm ([op,:argl],index) ==
   u:= eval [op,:MAPCAR('MKQ,TAKE(#argl,$FormalMapVariableList))]
-- 
cgit v1.2.3