From 7dee86947c3b587f0b365eeb3a8c0cb3c5510c3c Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 11 Jul 2010 12:01:35 +0000 Subject: * interp/database.boot (markUnique): Remove. ($FunctionDescriptorTail): Likewise. (getOperationAlistFromLisplib): Likewise. (getOplistForConstructorForm): Adjust. * interp/br-op1.boot (getDomainOpTable): Likewise. * interp/br-op2.boot (koOps): Likewise. * interp/define.boot (genDomainViewList): Likewise. * interp/i-analy.boot (namedConstant): Likewise. * interp/i-coerce.boot (getConstantFromDomain): Likewise. * interp/i-funsel.boot (isOpInDomain): Likewise. (findCommonSigInDomain): Likewise. (findUniqueOpInDomain): Likewise. (hasSig): Likewise. * interp/i-spec2.boot (constantInDomain?): Likewise. * interp/trace.boot (spadTrace): Likewise. * interp/lisplib.boot (transformOperationAlist): Simplify. --- src/interp/lisplib.boot | 3 --- 1 file changed, 3 deletions(-) (limited to 'src/interp/lisplib.boot') diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 6af66112..d3f3d775 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -545,9 +545,6 @@ transformOperationAlist operationAlist == keyedSystemError("S2IL0025",[implementation]) signatureItem:= if u:= assoc([op,sig],$functionLocations) then n := [n,:rest u] - kind = 'ELT => - condition = 'T => [sig,n] - [sig,n,condition] [sig,n,condition,kind] itemList:= [signatureItem,:LASSQ(op,newAlist)] newAlist:= insertAlist(op,itemList,newAlist) -- cgit v1.2.3