commit f066600d435de44dce20ba8fa57a22930294dff2
parent 9b5cd9274ae79791135af88e16a8ed4cc2119369
Author: Alexander Burger <abu@software-lab.de>
Date: Tue, 8 Nov 2011 11:48:24 +0100
Calculated message passing (64-bit)
Diffstat:
7 files changed, 142 insertions(+), 147 deletions(-)
diff --git a/CHANGES b/CHANGES
@@ -1,4 +1,5 @@
* XXdec11 picoLisp-3.0.9
+ Calculated message passing (64-bit)
Improved "tags" file handling
IPv6 support
'*Prompt' global variable
diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar
Binary files differ.
diff --git a/lib/map b/lib/map
@@ -1,5 +1,5 @@
-! (2851 . "@src64/flow.l")
-$ (2953 . "@src64/flow.l")
+! (2845 . "@src64/flow.l")
+$ (2947 . "@src64/flow.l")
% (2572 . "@src64/big.l")
& (2807 . "@src64/big.l")
* (2389 . "@src64/big.l")
@@ -28,7 +28,7 @@ accept (145 . "@src64/net.l")
adr (594 . "@src64/main.l")
alarm (471 . "@src64/main.l")
all (780 . "@src64/sym.l")
-and (1616 . "@src64/flow.l")
+and (1610 . "@src64/flow.l")
any (3965 . "@src64/io.l")
append (1338 . "@src64/subr.l")
apply (713 . "@src64/apply.l")
@@ -38,15 +38,15 @@ argv (2933 . "@src64/main.l")
as (139 . "@src64/flow.l")
asoq (3005 . "@src64/subr.l")
assoc (2970 . "@src64/subr.l")
-at (2101 . "@src64/flow.l")
+at (2095 . "@src64/flow.l")
atom (2385 . "@src64/subr.l")
-bind (1354 . "@src64/flow.l")
+bind (1348 . "@src64/flow.l")
bit? (2748 . "@src64/big.l")
-bool (1716 . "@src64/flow.l")
+bool (1710 . "@src64/flow.l")
box (821 . "@src64/flow.l")
box? (1114 . "@src64/sym.l")
by (1669 . "@src64/apply.l")
-bye (3430 . "@src64/flow.l")
+bye (3424 . "@src64/flow.l")
caaaar (271 . "@src64/subr.l")
caaadr (288 . "@src64/subr.l")
caaar (99 . "@src64/subr.l")
@@ -61,10 +61,10 @@ caddar (409 . "@src64/subr.l")
cadddr (435 . "@src64/subr.l")
caddr (156 . "@src64/subr.l")
cadr (45 . "@src64/subr.l")
-call (3082 . "@src64/flow.l")
+call (3076 . "@src64/flow.l")
car (5 . "@src64/subr.l")
-case (1957 . "@src64/flow.l")
-catch (2459 . "@src64/flow.l")
+case (1951 . "@src64/flow.l")
+catch (2453 . "@src64/flow.l")
cd (2688 . "@src64/main.l")
cdaaar (464 . "@src64/subr.l")
cdaadr (487 . "@src64/subr.l")
@@ -90,11 +90,11 @@ clip (1799 . "@src64/subr.l")
close (4381 . "@src64/io.l")
cmd (2915 . "@src64/main.l")
cnt (1413 . "@src64/apply.l")
-co (2540 . "@src64/flow.l")
+co (2534 . "@src64/flow.l")
commit (1495 . "@src64/db.l")
con (725 . "@src64/subr.l")
conc (781 . "@src64/subr.l")
-cond (1911 . "@src64/flow.l")
+cond (1905 . "@src64/flow.l")
connect (224 . "@src64/net.l")
cons (747 . "@src64/subr.l")
copy (1225 . "@src64/subr.l")
@@ -113,8 +113,8 @@ delq (1452 . "@src64/subr.l")
diff (2589 . "@src64/subr.l")
dir (2846 . "@src64/main.l")
dm (542 . "@src64/flow.l")
-do (2133 . "@src64/flow.l")
-e (2914 . "@src64/flow.l")
+do (2127 . "@src64/flow.l")
+e (2908 . "@src64/flow.l")
echo (4412 . "@src64/io.l")
env (606 . "@src64/main.l")
eof (3524 . "@src64/io.l")
@@ -125,22 +125,22 @@ eval (175 . "@src64/flow.l")
ext (5146 . "@src64/io.l")
ext? (1149 . "@src64/sym.l")
extern (1015 . "@src64/sym.l")
-extra (1261 . "@src64/flow.l")
+extra (1255 . "@src64/flow.l")
extract (1218 . "@src64/apply.l")
fifo (2077 . "@src64/sym.l")
file (2793 . "@src64/main.l")
fill (3240 . "@src64/subr.l")
filter (1161 . "@src64/apply.l")
fin (2033 . "@src64/subr.l")
-finally (2516 . "@src64/flow.l")
+finally (2510 . "@src64/flow.l")
find (1322 . "@src64/apply.l")
fish (1613 . "@src64/apply.l")
flg? (2445 . "@src64/subr.l")
flip (1699 . "@src64/subr.l")
flush (5121 . "@src64/io.l")
fold (3489 . "@src64/sym.l")
-for (2222 . "@src64/flow.l")
-fork (3256 . "@src64/flow.l")
+for (2216 . "@src64/flow.l")
+fork (3250 . "@src64/flow.l")
format (2089 . "@src64/big.l")
free (2046 . "@src64/db.l")
from (3543 . "@src64/io.l")
@@ -160,25 +160,25 @@ hear (3228 . "@src64/io.l")
host (190 . "@src64/net.l")
id (1025 . "@src64/db.l")
idx (2151 . "@src64/sym.l")
-if (1797 . "@src64/flow.l")
-if2 (1816 . "@src64/flow.l")
-ifn (1857 . "@src64/flow.l")
+if (1791 . "@src64/flow.l")
+if2 (1810 . "@src64/flow.l")
+ifn (1851 . "@src64/flow.l")
in (4194 . "@src64/io.l")
inc (2256 . "@src64/big.l")
index (2637 . "@src64/subr.l")
info (2750 . "@src64/main.l")
intern (990 . "@src64/sym.l")
-ipid (3201 . "@src64/flow.l")
+ipid (3195 . "@src64/flow.l")
isa (958 . "@src64/flow.l")
-job (1421 . "@src64/flow.l")
+job (1415 . "@src64/flow.l")
journal (968 . "@src64/db.l")
key (3376 . "@src64/io.l")
-kill (3233 . "@src64/flow.l")
+kill (3227 . "@src64/flow.l")
last (2044 . "@src64/subr.l")
le0 (2693 . "@src64/big.l")
length (2741 . "@src64/subr.l")
-let (1471 . "@src64/flow.l")
-let? (1532 . "@src64/flow.l")
+let (1465 . "@src64/flow.l")
+let? (1526 . "@src64/flow.l")
lieu (1154 . "@src64/db.l")
line (3699 . "@src64/io.l")
lines (3852 . "@src64/io.l")
@@ -189,7 +189,7 @@ listen (157 . "@src64/net.l")
lit (150 . "@src64/flow.l")
load (4171 . "@src64/io.l")
lock (1182 . "@src64/db.l")
-loop (2165 . "@src64/flow.l")
+loop (2159 . "@src64/flow.l")
low? (3361 . "@src64/sym.l")
lowc (3391 . "@src64/sym.l")
lst? (2415 . "@src64/subr.l")
@@ -221,15 +221,15 @@ n0 (2189 . "@src64/subr.l")
n== (2087 . "@src64/subr.l")
nT (2198 . "@src64/subr.l")
name (502 . "@src64/sym.l")
-nand (1651 . "@src64/flow.l")
+nand (1645 . "@src64/flow.l")
native (1385 . "@src64/main.l")
need (919 . "@src64/subr.l")
new (832 . "@src64/flow.l")
next (2296 . "@src64/main.l")
-nil (1734 . "@src64/flow.l")
-nond (1934 . "@src64/flow.l")
-nor (1672 . "@src64/flow.l")
-not (1724 . "@src64/flow.l")
+nil (1728 . "@src64/flow.l")
+nond (1928 . "@src64/flow.l")
+nor (1666 . "@src64/flow.l")
+not (1718 . "@src64/flow.l")
nth (685 . "@src64/subr.l")
num? (2426 . "@src64/subr.l")
off (1712 . "@src64/sym.l")
@@ -238,9 +238,9 @@ on (1697 . "@src64/sym.l")
onOff (1727 . "@src64/sym.l")
one (1760 . "@src64/sym.l")
open (4338 . "@src64/io.l")
-opid (3217 . "@src64/flow.l")
+opid (3211 . "@src64/flow.l")
opt (3036 . "@src64/main.l")
-or (1632 . "@src64/flow.l")
+or (1626 . "@src64/flow.l")
out (4214 . "@src64/io.l")
pack (1259 . "@src64/sym.l")
pair (2394 . "@src64/subr.l")
@@ -262,9 +262,9 @@ print (5085 . "@src64/io.l")
println (5116 . "@src64/io.l")
printsp (5101 . "@src64/io.l")
prior (2713 . "@src64/subr.l")
-prog (1752 . "@src64/flow.l")
-prog1 (1760 . "@src64/flow.l")
-prog2 (1777 . "@src64/flow.l")
+prog (1746 . "@src64/flow.l")
+prog1 (1754 . "@src64/flow.l")
+prog2 (1771 . "@src64/flow.l")
prop (2911 . "@src64/sym.l")
protect (516 . "@src64/main.l")
prove (3527 . "@src64/subr.l")
@@ -292,7 +292,7 @@ run (306 . "@src64/flow.l")
sect (2541 . "@src64/subr.l")
seed (2961 . "@src64/big.l")
seek (1275 . "@src64/apply.l")
-send (1130 . "@src64/flow.l")
+send (1124 . "@src64/flow.l")
seq (1081 . "@src64/db.l")
set (1596 . "@src64/sym.l")
setq (1629 . "@src64/sym.l")
@@ -304,52 +304,52 @@ sp? (719 . "@src64/sym.l")
space (5063 . "@src64/io.l")
split (1592 . "@src64/subr.l")
stack (555 . "@src64/main.l")
-state (2001 . "@src64/flow.l")
+state (1995 . "@src64/flow.l")
stem (1989 . "@src64/subr.l")
str (4019 . "@src64/io.l")
str? (1128 . "@src64/sym.l")
strip (1576 . "@src64/subr.l")
sub? (1558 . "@src64/sym.l")
sum (1460 . "@src64/apply.l")
-super (1217 . "@src64/flow.l")
+super (1211 . "@src64/flow.l")
sym (4005 . "@src64/io.l")
sym? (2434 . "@src64/subr.l")
symbols (934 . "@src64/sym.l")
sync (3188 . "@src64/io.l")
-sys (3053 . "@src64/flow.l")
-t (1743 . "@src64/flow.l")
+sys (3047 . "@src64/flow.l")
+t (1737 . "@src64/flow.l")
tail (1911 . "@src64/subr.l")
tell (3260 . "@src64/io.l")
text (1387 . "@src64/sym.l")
-throw (2485 . "@src64/flow.l")
-tick (3169 . "@src64/flow.l")
+throw (2479 . "@src64/flow.l")
+tick (3163 . "@src64/flow.l")
till (3610 . "@src64/io.l")
time (2560 . "@src64/main.l")
touch (1164 . "@src64/sym.l")
trim (1759 . "@src64/subr.l")
-try (1171 . "@src64/flow.l")
+try (1165 . "@src64/flow.l")
type (911 . "@src64/flow.l")
udp (301 . "@src64/net.l")
unify (3935 . "@src64/subr.l")
-unless (1893 . "@src64/flow.l")
-until (2077 . "@src64/flow.l")
+unless (1887 . "@src64/flow.l")
+until (2071 . "@src64/flow.l")
up (700 . "@src64/main.l")
upp? (3376 . "@src64/sym.l")
uppc (3440 . "@src64/sym.l")
-use (1565 . "@src64/flow.l")
+use (1559 . "@src64/flow.l")
usec (2665 . "@src64/main.l")
val (1577 . "@src64/sym.l")
version (3050 . "@src64/main.l")
wait (3150 . "@src64/io.l")
-when (1876 . "@src64/flow.l")
-while (2053 . "@src64/flow.l")
+when (1870 . "@src64/flow.l")
+while (2047 . "@src64/flow.l")
wipe (3236 . "@src64/sym.l")
-with (1324 . "@src64/flow.l")
+with (1318 . "@src64/flow.l")
wr (5246 . "@src64/io.l")
xchg (1652 . "@src64/sym.l")
-xor (1693 . "@src64/flow.l")
+xor (1687 . "@src64/flow.l")
x| (2887 . "@src64/big.l")
-yield (2709 . "@src64/flow.l")
+yield (2703 . "@src64/flow.l")
yoke (1196 . "@src64/subr.l")
zap (1178 . "@src64/sym.l")
zero (1745 . "@src64/sym.l")
diff --git a/src/vers.h b/src/vers.h
@@ -1 +1 @@
-static byte Version[4] = {3,0,8,6};
+static byte Version[4] = {3,0,8,7};
diff --git a/src64/flow.l b/src64/flow.l
@@ -1,4 +1,4 @@
-# 29sep11abu
+# 08nov11abu
# (c) Software Lab. Alexander Burger
(code 'redefMsgEC)
@@ -1087,6 +1087,9 @@
push X
push Y
push Z
+ link
+ push C # <L II> Message symbol
+ link
ld X E
ld Y (E CDR) # Y on args
ld E (Y) # Eval 'obj'
@@ -1095,36 +1098,27 @@
jnz symErrEX
sym E
jz symErrEX
- link
- push E # <L I> 'obj'
+ tuck E # <L I> 'obj'
link
sym (E TAIL) # External symbol?
if nz # Yes
call dbFetchEX # Fetch it
end
push (Y CDR) # Save args
- ld Y (X) # Get 'msg'
- do
- num Y # Need symbol
- jnz msgErrYX
- sym Y
- jz msgErrYX
- cnt (Y) # Value numeric?
- if nz # Yes
- ld Z 0 # No classes
- call methodEY_FCYZ # Found?
- jne msgErrYX # No
- ld A (L I) # Get 'obj'
- pop X # and args
- call evMethodACXYZ_E
- drop
- pop Z
- pop Y
- pop X
- ret
- end
- ld Y (Y) # Get value
- loop
+ ld Y (L II) # Get message
+ num Y # Need symbol
+ jnz msgErrYX
+ ld Z 0 # No classes
+ call methodEY_FCYZ # Found?
+ jne msgErrYX # No
+ ld A (L I) # Get 'obj'
+ pop X # and args
+ call evMethodACXYZ_E
+ drop
+ pop Z
+ pop Y
+ pop X
+ ret
# (send 'msg 'obj ['any ..]) -> any
(code 'doSend 2)
diff --git a/src64/tags b/src64/tags
@@ -438,14 +438,14 @@ boxNum_C gc.l 836
boxNum_E gc.l 848
boxNum_X gc.l 860
brkErrX err.l 494
-brkLoadE_E flow.l 2859
+brkLoadE_E flow.l 2853
bufAoAC_C db.l 953
bufStringE_SZ io.l 1142
-byeE flow.l 3442
+byeE flow.l 3436
byteNumBCX_CX io.l 463
byteSymBCX_CX io.l 1291
caseDataA_AC sym.l 3349
-caught flow.l 2475
+caught flow.l 2469
cbl main.l 1854
cbl1 main.l 1887
cbl10 main.l 1923
@@ -533,7 +533,7 @@ cons_Z gc.l 518
ctOpenEXY io.l 1670
currFdX_C io.l 1333
currFd_C io.l 1337
-cutLocalCX flow.l 2827
+cutLocalCX flow.l 2821
dateXYZ_E main.l 2366
dbAEX db.l 1328
dbFetchEX db.l 1316
@@ -560,7 +560,7 @@ doAdd big.l 2171
doAdr main.l 594
doAlarm main.l 471
doAll sym.l 780
-doAnd flow.l 1616
+doAnd flow.l 1610
doAny io.l 3965
doAppend subr.l 1338
doApply apply.l 713
@@ -571,19 +571,19 @@ doArrow subr.l 3913
doAs flow.l 139
doAsoq subr.l 3005
doAssoc subr.l 2970
-doAt flow.l 2101
+doAt flow.l 2095
doAtom subr.l 2385
-doBind flow.l 1354
+doBind flow.l 1348
doBitAnd big.l 2807
doBitOr big.l 2847
doBitQ big.l 2748
doBitXor big.l 2887
-doBool flow.l 1716
+doBool flow.l 1710
doBox flow.l 821
doBoxQ sym.l 1114
-doBreak flow.l 2851
+doBreak flow.l 2845
doBy apply.l 1669
-doBye flow.l 3430
+doBye flow.l 3424
doCaaaar subr.l 271
doCaaadr subr.l 288
doCaaar subr.l 99
@@ -598,10 +598,10 @@ doCaddar subr.l 409
doCadddr subr.l 435
doCaddr subr.l 156
doCadr subr.l 45
-doCall flow.l 3082
+doCall flow.l 3076
doCar subr.l 5
-doCase flow.l 1957
-doCatch flow.l 2459
+doCase flow.l 1951
+doCatch flow.l 2453
doCd main.l 2688
doCdaaar subr.l 464
doCdaadr subr.l 487
@@ -627,12 +627,12 @@ doClip subr.l 1799
doClose io.l 4381
doCmd main.l 2915
doCnt apply.l 1413
-doCo flow.l 2540
+doCo flow.l 2534
doCol sym.l 3034
doCommit db.l 1495
doCon subr.l 725
doConc subr.l 781
-doCond flow.l 1911
+doCond flow.l 1905
doConnect net.l 224
doCons subr.l 747
doCopy subr.l 1225
@@ -652,8 +652,8 @@ doDiff subr.l 2589
doDir main.l 2846
doDiv big.l 2513
doDm flow.l 542
-doDo flow.l 2133
-doE flow.l 2914
+doDo flow.l 2127
+doE flow.l 2908
doEcho io.l 4412
doEnv main.l 606
doEof io.l 3524
@@ -668,22 +668,22 @@ doEval flow.l 175
doExt io.l 5146
doExtQ sym.l 1149
doExtern sym.l 1015
-doExtra flow.l 1261
+doExtra flow.l 1255
doExtract apply.l 1218
doFifo sym.l 2077
doFile main.l 2793
doFill subr.l 3240
doFilter apply.l 1161
doFin subr.l 2033
-doFinally flow.l 2516
+doFinally flow.l 2510
doFind apply.l 1322
doFish apply.l 1613
doFlgQ subr.l 2445
doFlip subr.l 1699
doFlush io.l 5121
doFold sym.l 3489
-doFor flow.l 2222
-doFork flow.l 3256
+doFor flow.l 2216
+doFork flow.l 3250
doFormat big.l 2089
doFree db.l 2046
doFrom io.l 3543
@@ -706,26 +706,26 @@ doHide sym.l 1082
doHost net.l 190
doId db.l 1025
doIdx sym.l 2151
-doIf flow.l 1797
-doIf2 flow.l 1816
-doIfn flow.l 1857
+doIf flow.l 1791
+doIf2 flow.l 1810
+doIfn flow.l 1851
doIn io.l 4194
doInc big.l 2256
doIndex subr.l 2637
doInfo main.l 2750
doIntern sym.l 990
-doIpid flow.l 3201
+doIpid flow.l 3195
doIsa flow.l 958
-doJob flow.l 1421
+doJob flow.l 1415
doJournal db.l 968
doKey io.l 3376
-doKill flow.l 3233
+doKill flow.l 3227
doLast subr.l 2044
doLe subr.l 2237
doLe0 big.l 2693
doLength subr.l 2741
-doLet flow.l 1471
-doLetQ flow.l 1532
+doLet flow.l 1465
+doLetQ flow.l 1526
doLieu db.l 1154
doLine io.l 3699
doLines io.l 3852
@@ -736,7 +736,7 @@ doListen net.l 157
doLit flow.l 150
doLoad io.l 4171
doLock db.l 1182
-doLoop flow.l 2165
+doLoop flow.l 2159
doLowQ sym.l 3361
doLowc sym.l 3391
doLstQ subr.l 2415
@@ -772,15 +772,15 @@ doNEq0 subr.l 2189
doNEqT subr.l 2198
doNEqual subr.l 2144
doName sym.l 502
-doNand flow.l 1651
+doNand flow.l 1645
doNative main.l 1385
doNeed subr.l 919
doNew flow.l 832
doNext main.l 2296
-doNil flow.l 1734
-doNond flow.l 1934
-doNor flow.l 1672
-doNot flow.l 1724
+doNil flow.l 1728
+doNond flow.l 1928
+doNor flow.l 1666
+doNot flow.l 1718
doNth subr.l 685
doNumQ subr.l 2426
doOff sym.l 1712
@@ -789,9 +789,9 @@ doOn sym.l 1697
doOnOff sym.l 1727
doOne sym.l 1760
doOpen io.l 4338
-doOpid flow.l 3217
+doOpid flow.l 3211
doOpt main.l 3036
-doOr flow.l 1632
+doOr flow.l 1626
doOut io.l 4214
doPack sym.l 1259
doPair subr.l 2394
@@ -813,9 +813,9 @@ doPrint io.l 5085
doPrintln io.l 5116
doPrintsp io.l 5101
doPrior subr.l 2713
-doProg flow.l 1752
-doProg1 flow.l 1760
-doProg2 flow.l 1777
+doProg flow.l 1746
+doProg1 flow.l 1754
+doProg2 flow.l 1771
doProp sym.l 2911
doPropCol sym.l 3058
doProtect main.l 516
@@ -846,7 +846,7 @@ doSect subr.l 2541
doSeed big.l 2961
doSeek apply.l 1275
doSemicol sym.l 2956
-doSend flow.l 1130
+doSend flow.l 1124
doSeq db.l 1081
doSet sym.l 1596
doSetCol sym.l 2985
@@ -860,7 +860,7 @@ doSpQ sym.l 719
doSpace io.l 5063
doSplit subr.l 1592
doStack main.l 555
-doState flow.l 2001
+doState flow.l 1995
doStem subr.l 1989
doStr io.l 4019
doStrQ sym.l 1128
@@ -868,45 +868,45 @@ doStrip subr.l 1576
doSub big.l 2209
doSubQ sym.l 1558
doSum apply.l 1460
-doSuper flow.l 1217
+doSuper flow.l 1211
doSym io.l 4005
doSymQ subr.l 2434
doSymbols sym.l 934
doSync io.l 3188
-doSys flow.l 3053
-doT flow.l 1743
+doSys flow.l 3047
+doT flow.l 1737
doTail subr.l 1911
doTell io.l 3260
doText sym.l 1387
-doThrow flow.l 2485
-doTick flow.l 3169
+doThrow flow.l 2479
+doTick flow.l 3163
doTill io.l 3610
doTime main.l 2560
doTouch sym.l 1164
-doTrace flow.l 2953
+doTrace flow.l 2947
doTrim subr.l 1759
-doTry flow.l 1171
+doTry flow.l 1165
doType flow.l 911
doUdp net.l 301
doUnify subr.l 3935
-doUnless flow.l 1893
-doUntil flow.l 2077
+doUnless flow.l 1887
+doUntil flow.l 2071
doUp main.l 700
doUppQ sym.l 3376
doUppc sym.l 3440
-doUse flow.l 1565
+doUse flow.l 1559
doUsec main.l 2665
doVal sym.l 1577
doVersion main.l 3050
doWait io.l 3150
-doWhen flow.l 1876
-doWhile flow.l 2053
+doWhen flow.l 1870
+doWhile flow.l 2047
doWipe sym.l 3236
-doWith flow.l 1324
+doWith flow.l 1318
doWr io.l 5246
doXchg sym.l 1652
-doXor flow.l 1693
-doYield flow.l 2709
+doXor flow.l 1687
+doYield flow.l 2703
doYoke subr.l 1196
doZap sym.l 1178
doZero sym.l 1745
@@ -932,7 +932,7 @@ execErrS main.l 187
extErrEX err.l 434
extNmCE_X db.l 64
externX_E sym.l 266
-extraXY_FCYZ flow.l 1288
+extraXY_FCYZ flow.l 1282
fdRdSetCZL io.l 2718
fdSetCL_X io.l 2706
fdSetC_Y io.l 3309
@@ -942,7 +942,7 @@ fileObjE_AC db.l 237
fileObjX_AC db.l 211
fillE_FE subr.l 3258
findSymX_E sym.l 257
-finishE flow.l 3454
+finishE flow.l 3448
firstByteA_B sym.l 673
firstCharE_A sym.l 683
fishAXY apply.l 1640
@@ -953,7 +953,7 @@ fmtNumAE_E big.l 1797
fmtScaleCX_CX big.l 2061
fmtWordACX_CX big.l 2046
forkErrX err.l 515
-forkLispX_FE flow.l 3269
+forkLispX_FE flow.l 3263
fsyncDB db.l 929
funqE_FE main.l 2098
gc gc.l 65
@@ -996,7 +996,7 @@ isLifeE_F db.l 525
isaCE_F flow.l 1009
jnlErrX err.l 618
jnlFileno_A db.l 344
-joinLocalCX flow.l 2840
+joinLocalCX flow.l 2834
lisp main.l 2028
loadAllX_E main.l 162
loadBEX_E io.l 4072
@@ -1006,8 +1006,8 @@ lockJnl db.l 352
logBlock db.l 432
logFileno_A db.l 348
lookupCE_E subr.l 3869
-loopX flow.l 2170
-loopY_FE flow.l 2409
+loopX flow.l 2164
+loopY_FE flow.l 2403
lstErrAX err.l 450
lstErrEX err.l 452
lupCE_E subr.l 3812
@@ -1112,7 +1112,7 @@ remUnder big.l 1485
remuAE_A big.l 1266
renErrEX err.l 467
restart main.l 154
-resumeCoroutine flow.l 2566
+resumeCoroutine flow.l 2560
ret err.l 705
retE_E err.l 728
retNil err.l 722
@@ -1172,12 +1172,12 @@ tellEndAZ io.l 1011
tellErr err.l 646
tenfoldA_A big.l 157
testEscA_F io.l 2050
-throwErrZX flow.l 2510
+throwErrZX flow.l 2504
tmDateC_E main.l 2356
tmTimeY_E main.l 2543
tokenCE_E io.l 2522
trSyncErrX err.l 602
-traceCY flow.l 3025
+traceCY flow.l 3019
trimE_E subr.l 1769
truncErrX err.l 592
truncLog db.l 944
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
-# 31oct11abu
+# 08nov11abu
# (c) Software Lab. Alexander Burger
-(de *Version 3 0 8 6)
+(de *Version 3 0 8 7)
# vi:et:ts=3:sw=3
