diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-10-14 14:31:06 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-10-14 14:31:06 +0000 |
| commit | c74ed936d96536336650b13fe21e79e0db7a2da4 (patch) | |
| tree | bbe9c68519f6ca0d06af7561f114b0ce501b0605 /src/interp/clam.boot.pamphlet | |
| parent | 095703f8cc7439cddda478b12667c5ac8264b6d5 (diff) | |
| download | open-axiom-c74ed936d96536336650b13fe21e79e0db7a2da4.tar.gz | |
* Makefile.pamphlet (${DEPSYS}): Depend on g-error.$(FASLEXT),
g-boot.$(FASLEXT), c-util.$(FASLEXT), clam.$(FASLEXT),
slam.$(FASLEXT).
(slam.$(FASLEXT)): New rule.
(clam.$(FASLEXT)): Likewise.
(g-boot.$(FASLEXT)): Likewise.
(g-error.$(FASLEXT)): Likewise.
(c-util.$(FASLEXT)): Likewise.
(<<c-util.lisp (OUT from IN)>>): Remove.
(<<c-util.clisp>>): Likewise.
* c-util.boot.pamphlet: Remove cached Lisp translation.
Push into package "BOOT". Fix syntax. Remove unused functions.
* clam.boot.pamphlet: Push into package "BOOT". Fix syntax.
* g-error.boot.package: Likewise.
* g-boot.boot.pamphlet: Push into package "BOOT".
* slam.boot.pamphlet: Likewise.
* sys-global.boot (CHR): Define.
(TOK): Likewise.
Diffstat (limited to 'src/interp/clam.boot.pamphlet')
| -rw-r--r-- | src/interp/clam.boot.pamphlet | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/interp/clam.boot.pamphlet b/src/interp/clam.boot.pamphlet index ea1679d2..985bb006 100644 --- a/src/interp/clam.boot.pamphlet +++ b/src/interp/clam.boot.pamphlet @@ -49,6 +49,7 @@ <<*>>= <<license>> +import '"g-timer" )package "BOOT" --% Cache Lambda Facility @@ -405,7 +406,7 @@ displayCacheFrequency al == mkCircularCountAlist(cl,len) == for [x,count,:.] in cl for i in 1..len while x ^= '_$failed repeat - u:= ASSOC(count,al) => RPLACD(u,1 + CDR u) + u:= assoc(count,al) => RPLACD(u,1 + CDR u) if INTEGERP $reportFavoritesIfNumber and count >= $reportFavoritesIfNumber then sayBrightlyNT [" ",count," "] pp x @@ -422,7 +423,7 @@ reportHashCacheStats fn == mkHashCountAlist vl == for [count,:.] in vl repeat - u:= ASSOC(count,al) => RPLACD(u,1 + CDR u) + u:= assoc(count,al) => RPLACD(u,1 + CDR u) al:= [[count,:1],:al] al @@ -540,7 +541,7 @@ haddProp(ht,op,prop,val) == recordInstantiation(op,prop,false) stopTimingProcess 'debug u:= HGET(ht,op) => --hope that one exists most of the time - ASSOC(prop,u) => val --value is already there--must = val; exit now + assoc(prop,u) => val --value is already there--must = val; exit now RPLACD(u,[CAR u,:CDR u]) RPLACA(u,[prop,:val]) $op: local := op |