From 8f6993d23314d6ac0060585291aedacc50337eba Mon Sep 17 00:00:00 2001 From: dos-reis Date: Fri, 4 May 2012 03:33:27 +0000 Subject: * interp/buildom.boot (lookupDisplay): Tidy. * interp/clam.boot (compHash): Likewise. --- src/ChangeLog | 5 +++++ src/interp/buildom.boot | 3 ++- src/interp/clam.boot | 2 +- 3 files changed, 8 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index 0ed9f9d1..a068ae4a 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2012-05-03 Gabriel Dos Reis + + * interp/buildom.boot (lookupDisplay): Tidy. + * interp/clam.boot (compHash): Likewise. + 2012-05-03 Gabriel Dos Reis * interp/vmlisp.lisp (THROW-PROTECT): Remove. diff --git a/src/interp/buildom.boot b/src/interp/buildom.boot index 449ae06f..d6437cd5 100644 --- a/src/interp/buildom.boot +++ b/src/interp/buildom.boot @@ -71,7 +71,8 @@ lookupDisplay(op,sig,vectorOrForm,suffix) == '" from ", prefix2String devaluateDeeply vectorOrForm,suffix) isInstantiated [op,:argl] == - u:= lassocShiftWithFunction(argl,tableValue($ConstructorCache,op),'domainEqualList) + u:= lassocShiftWithFunction(argl,tableValue($ConstructorCache,op), + function domainEqualList) => CDRwithIncrement u nil diff --git a/src/interp/clam.boot b/src/interp/clam.boot index 4f7e6b25..b210c6c6 100644 --- a/src/interp/clam.boot +++ b/src/interp/clam.boot @@ -219,7 +219,7 @@ compHash(op,argl,body,cacheNameOrNil,eqEtc,countFl) == cacheNameOrNil => eqEtc ~= 'EQUAL => ['lassocShiftWithFunction,cacheArgKey, - ['tableValue,cacheNameOrNil,MKQ op],MKQ eqEtc] + ['tableValue,cacheNameOrNil,MKQ op],['%function,eqEtc]] ['lassocShift,cacheArgKey,['tableValue,cacheNameOrNil,MKQ op]] ['tableValue,cacheName,g1] secondPredPair:= [g2,mkSeq [:hitCountCode,returnFoundValue]] -- cgit v1.2.3