From 8796a8c7a9b8991befb18c39e826d7b29a342c13 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Fri, 19 Sep 2008 02:44:50 +0000 Subject: * interp/lisplib.boot (getConstructorSignature): Relax. --- src/ChangeLog | 4 ++++ src/interp/lisplib.boot | 8 ++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 73022569..c496df65 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2008-09-18 Gabriel Dos Reis + + * interp/lisplib.boot (getConstructorSignature): Relax. + 2008-09-18 Gabriel Dos Reis * interp/c-util.boot (displayAmbiguousSignatures): New. 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