diff options
Diffstat (limited to 'src/interp/lisplib.boot')
-rw-r--r-- | src/interp/lisplib.boot | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 32e00181..50397a50 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -39,10 +39,6 @@ import debug namespace BOOT module lisplib - -++ -$functionLocations := [] - --======================================================================= -- Generate Slot 2 Attribute Alist --======================================================================= @@ -646,11 +642,8 @@ transformOperationAlist operationAlist == impOp in '(CONST Subsumed) => impOp keyedSystemError("S2IL0025",[impOp]) keyedSystemError("S2IL0025",[implementation]) - signatureItem:= - if u:= assoc([op,sig],$functionLocations) then n := [n,:rest u] - [sig,n,condition,kind] - itemList:= [signatureItem,:symbolTarget(op,newAlist)] - newAlist:= insertAlist(op,itemList,newAlist) + itemList := [[sig,n,condition,kind],:symbolTarget(op,newAlist)] + newAlist := insertAlist(op,itemList,newAlist) newAlist sayNonUnique x == |