commit d012157bf97a0e26702a47c04ec086468bd7e983
parent 43f85f67ccd8fb8f07e7ef5510681a42eb1095d6
Author: Alexander Burger <abu@software-lab.de>
Date: Sun, 25 Sep 2011 09:42:24 +0200
put/def continued
Diffstat:
| M | lib/tags | | | 122 | ++++++++++++++++++++++++++++++++++++++++---------------------------------------- |
| M | src/flow.c | | | 5 | +++-- |
| M | src64/err.l | | | 10 | +--------- |
| M | src64/flow.l | | | 29 | +++++++++++++++++------------ |
| M | src64/tags | | | 325 | +++++++++++++++++++++++++++++++++++++++---------------------------------------- |
5 files changed, 244 insertions(+), 247 deletions(-)
diff --git a/lib/tags b/lib/tags
@@ -1,5 +1,5 @@
-! (2849 . "@src64/flow.l")
-$ (2951 . "@src64/flow.l")
+! (2854 . "@src64/flow.l")
+$ (2956 . "@src64/flow.l")
% (2572 . "@src64/big.l")
& (2807 . "@src64/big.l")
* (2389 . "@src64/big.l")
@@ -28,7 +28,7 @@ accept (139 . "@src64/net.l")
adr (594 . "@src64/main.l")
alarm (471 . "@src64/main.l")
all (780 . "@src64/sym.l")
-and (1614 . "@src64/flow.l")
+and (1619 . "@src64/flow.l")
any (3965 . "@src64/io.l")
append (1338 . "@src64/subr.l")
apply (713 . "@src64/apply.l")
@@ -38,15 +38,15 @@ argv (2930 . "@src64/main.l")
as (144 . "@src64/flow.l")
asoq (3005 . "@src64/subr.l")
assoc (2970 . "@src64/subr.l")
-at (2099 . "@src64/flow.l")
+at (2104 . "@src64/flow.l")
atom (2385 . "@src64/subr.l")
-bind (1352 . "@src64/flow.l")
+bind (1357 . "@src64/flow.l")
bit? (2748 . "@src64/big.l")
-bool (1714 . "@src64/flow.l")
-box (819 . "@src64/flow.l")
+bool (1719 . "@src64/flow.l")
+box (824 . "@src64/flow.l")
box? (1110 . "@src64/sym.l")
by (1669 . "@src64/apply.l")
-bye (3428 . "@src64/flow.l")
+bye (3433 . "@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 (3080 . "@src64/flow.l")
+call (3085 . "@src64/flow.l")
car (5 . "@src64/subr.l")
-case (1955 . "@src64/flow.l")
-catch (2457 . "@src64/flow.l")
+case (1960 . "@src64/flow.l")
+catch (2462 . "@src64/flow.l")
cd (2685 . "@src64/main.l")
cdaaar (464 . "@src64/subr.l")
cdaadr (487 . "@src64/subr.l")
@@ -90,11 +90,11 @@ clip (1799 . "@src64/subr.l")
close (4370 . "@src64/io.l")
cmd (2912 . "@src64/main.l")
cnt (1413 . "@src64/apply.l")
-co (2538 . "@src64/flow.l")
+co (2543 . "@src64/flow.l")
commit (1495 . "@src64/db.l")
con (725 . "@src64/subr.l")
conc (781 . "@src64/subr.l")
-cond (1909 . "@src64/flow.l")
+cond (1914 . "@src64/flow.l")
connect (201 . "@src64/net.l")
cons (747 . "@src64/subr.l")
copy (1225 . "@src64/subr.l")
@@ -103,7 +103,7 @@ ctty (2710 . "@src64/main.l")
cut (1907 . "@src64/sym.l")
date (2424 . "@src64/main.l")
dbck (2104 . "@src64/db.l")
-de (529 . "@src64/flow.l")
+de (534 . "@src64/flow.l")
dec (2323 . "@src64/big.l")
def (453 . "@src64/flow.l")
default (1771 . "@src64/sym.l")
@@ -112,9 +112,9 @@ delete (1401 . "@src64/subr.l")
delq (1452 . "@src64/subr.l")
diff (2589 . "@src64/subr.l")
dir (2843 . "@src64/main.l")
-dm (541 . "@src64/flow.l")
-do (2131 . "@src64/flow.l")
-e (2912 . "@src64/flow.l")
+dm (546 . "@src64/flow.l")
+do (2136 . "@src64/flow.l")
+e (2917 . "@src64/flow.l")
echo (4401 . "@src64/io.l")
env (606 . "@src64/main.l")
eof (3524 . "@src64/io.l")
@@ -125,22 +125,22 @@ eval (180 . "@src64/flow.l")
ext (5129 . "@src64/io.l")
ext? (1145 . "@src64/sym.l")
extern (1011 . "@src64/sym.l")
-extra (1259 . "@src64/flow.l")
+extra (1264 . "@src64/flow.l")
extract (1218 . "@src64/apply.l")
fifo (2073 . "@src64/sym.l")
file (2790 . "@src64/main.l")
fill (3240 . "@src64/subr.l")
filter (1161 . "@src64/apply.l")
fin (2033 . "@src64/subr.l")
-finally (2514 . "@src64/flow.l")
+finally (2519 . "@src64/flow.l")
find (1322 . "@src64/apply.l")
fish (1613 . "@src64/apply.l")
flg? (2445 . "@src64/subr.l")
flip (1699 . "@src64/subr.l")
flush (5104 . "@src64/io.l")
fold (3485 . "@src64/sym.l")
-for (2220 . "@src64/flow.l")
-fork (3254 . "@src64/flow.l")
+for (2225 . "@src64/flow.l")
+fork (3259 . "@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 (184 . "@src64/net.l")
id (1025 . "@src64/db.l")
idx (2147 . "@src64/sym.l")
-if (1795 . "@src64/flow.l")
-if2 (1814 . "@src64/flow.l")
-ifn (1855 . "@src64/flow.l")
+if (1800 . "@src64/flow.l")
+if2 (1819 . "@src64/flow.l")
+ifn (1860 . "@src64/flow.l")
in (4188 . "@src64/io.l")
inc (2256 . "@src64/big.l")
index (2637 . "@src64/subr.l")
info (2747 . "@src64/main.l")
intern (986 . "@src64/sym.l")
-ipid (3199 . "@src64/flow.l")
-isa (956 . "@src64/flow.l")
-job (1419 . "@src64/flow.l")
+ipid (3204 . "@src64/flow.l")
+isa (961 . "@src64/flow.l")
+job (1424 . "@src64/flow.l")
journal (968 . "@src64/db.l")
key (3376 . "@src64/io.l")
-kill (3231 . "@src64/flow.l")
+kill (3236 . "@src64/flow.l")
last (2044 . "@src64/subr.l")
le0 (2693 . "@src64/big.l")
length (2741 . "@src64/subr.l")
-let (1469 . "@src64/flow.l")
-let? (1530 . "@src64/flow.l")
+let (1474 . "@src64/flow.l")
+let? (1535 . "@src64/flow.l")
lieu (1154 . "@src64/db.l")
line (3699 . "@src64/io.l")
lines (3852 . "@src64/io.l")
@@ -189,7 +189,7 @@ listen (151 . "@src64/net.l")
lit (155 . "@src64/flow.l")
load (4165 . "@src64/io.l")
lock (1182 . "@src64/db.l")
-loop (2163 . "@src64/flow.l")
+loop (2168 . "@src64/flow.l")
low? (3357 . "@src64/sym.l")
lowc (3387 . "@src64/sym.l")
lst? (2415 . "@src64/subr.l")
@@ -211,8 +211,8 @@ maxi (1511 . "@src64/apply.l")
member (2455 . "@src64/subr.l")
memq (2477 . "@src64/subr.l")
meta (3277 . "@src64/sym.l")
-meth (1084 . "@src64/flow.l")
-method (1048 . "@src64/flow.l")
+meth (1089 . "@src64/flow.l")
+method (1053 . "@src64/flow.l")
min (2356 . "@src64/subr.l")
mini (1562 . "@src64/apply.l")
mix (1260 . "@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 (1649 . "@src64/flow.l")
+nand (1654 . "@src64/flow.l")
native (1382 . "@src64/main.l")
need (919 . "@src64/subr.l")
-new (830 . "@src64/flow.l")
+new (835 . "@src64/flow.l")
next (2293 . "@src64/main.l")
-nil (1732 . "@src64/flow.l")
-nond (1932 . "@src64/flow.l")
-nor (1670 . "@src64/flow.l")
-not (1722 . "@src64/flow.l")
+nil (1737 . "@src64/flow.l")
+nond (1937 . "@src64/flow.l")
+nor (1675 . "@src64/flow.l")
+not (1727 . "@src64/flow.l")
nth (685 . "@src64/subr.l")
num? (2426 . "@src64/subr.l")
off (1708 . "@src64/sym.l")
@@ -238,9 +238,9 @@ on (1693 . "@src64/sym.l")
onOff (1723 . "@src64/sym.l")
one (1756 . "@src64/sym.l")
open (4332 . "@src64/io.l")
-opid (3215 . "@src64/flow.l")
+opid (3220 . "@src64/flow.l")
opt (3033 . "@src64/main.l")
-or (1630 . "@src64/flow.l")
+or (1635 . "@src64/flow.l")
out (4208 . "@src64/io.l")
pack (1255 . "@src64/sym.l")
pair (2394 . "@src64/subr.l")
@@ -262,9 +262,9 @@ print (5068 . "@src64/io.l")
println (5099 . "@src64/io.l")
printsp (5084 . "@src64/io.l")
prior (2713 . "@src64/subr.l")
-prog (1750 . "@src64/flow.l")
-prog1 (1758 . "@src64/flow.l")
-prog2 (1775 . "@src64/flow.l")
+prog (1755 . "@src64/flow.l")
+prog1 (1763 . "@src64/flow.l")
+prog2 (1780 . "@src64/flow.l")
prop (2907 . "@src64/sym.l")
protect (516 . "@src64/main.l")
prove (3527 . "@src64/subr.l")
@@ -292,7 +292,7 @@ run (311 . "@src64/flow.l")
sect (2541 . "@src64/subr.l")
seed (2961 . "@src64/big.l")
seek (1275 . "@src64/apply.l")
-send (1128 . "@src64/flow.l")
+send (1133 . "@src64/flow.l")
seq (1081 . "@src64/db.l")
set (1592 . "@src64/sym.l")
setq (1625 . "@src64/sym.l")
@@ -304,52 +304,52 @@ sp? (719 . "@src64/sym.l")
space (5046 . "@src64/io.l")
split (1592 . "@src64/subr.l")
stack (555 . "@src64/main.l")
-state (1999 . "@src64/flow.l")
+state (2004 . "@src64/flow.l")
stem (1989 . "@src64/subr.l")
str (4019 . "@src64/io.l")
str? (1124 . "@src64/sym.l")
strip (1576 . "@src64/subr.l")
sub? (1554 . "@src64/sym.l")
sum (1460 . "@src64/apply.l")
-super (1215 . "@src64/flow.l")
+super (1220 . "@src64/flow.l")
sym (4005 . "@src64/io.l")
sym? (2434 . "@src64/subr.l")
symbols (934 . "@src64/sym.l")
sync (3188 . "@src64/io.l")
-sys (3051 . "@src64/flow.l")
-t (1741 . "@src64/flow.l")
+sys (3056 . "@src64/flow.l")
+t (1746 . "@src64/flow.l")
tail (1911 . "@src64/subr.l")
tell (3260 . "@src64/io.l")
text (1383 . "@src64/sym.l")
-throw (2483 . "@src64/flow.l")
-tick (3167 . "@src64/flow.l")
+throw (2488 . "@src64/flow.l")
+tick (3172 . "@src64/flow.l")
till (3610 . "@src64/io.l")
time (2557 . "@src64/main.l")
touch (1160 . "@src64/sym.l")
trim (1759 . "@src64/subr.l")
-try (1169 . "@src64/flow.l")
-type (909 . "@src64/flow.l")
+try (1174 . "@src64/flow.l")
+type (914 . "@src64/flow.l")
udp (268 . "@src64/net.l")
unify (3935 . "@src64/subr.l")
-unless (1891 . "@src64/flow.l")
-until (2075 . "@src64/flow.l")
+unless (1896 . "@src64/flow.l")
+until (2080 . "@src64/flow.l")
up (697 . "@src64/main.l")
upp? (3372 . "@src64/sym.l")
uppc (3436 . "@src64/sym.l")
-use (1563 . "@src64/flow.l")
+use (1568 . "@src64/flow.l")
usec (2662 . "@src64/main.l")
val (1573 . "@src64/sym.l")
version (3047 . "@src64/main.l")
wait (3150 . "@src64/io.l")
-when (1874 . "@src64/flow.l")
-while (2051 . "@src64/flow.l")
+when (1879 . "@src64/flow.l")
+while (2056 . "@src64/flow.l")
wipe (3232 . "@src64/sym.l")
-with (1322 . "@src64/flow.l")
+with (1327 . "@src64/flow.l")
wr (5229 . "@src64/io.l")
xchg (1648 . "@src64/sym.l")
-xor (1691 . "@src64/flow.l")
+xor (1696 . "@src64/flow.l")
x| (2887 . "@src64/big.l")
-yield (2707 . "@src64/flow.l")
+yield (2712 . "@src64/flow.l")
yoke (1196 . "@src64/subr.l")
zap (1174 . "@src64/sym.l")
zero (1741 . "@src64/sym.l")
diff --git a/src/flow.c b/src/flow.c
@@ -1,4 +1,4 @@
-/* 24sep11abu
+/* 25sep11abu
* (c) Software Lab. Alexander Burger
*/
@@ -218,10 +218,10 @@ any doDef(any ex) {
x = cdr(ex), Push(c1, EVAL(car(x)));
NeedSym(ex,data(c1));
- Touch(ex,data(c1));
x = cdr(x), Push(c2, EVAL(car(x)));
if (!isCell(cdr(x))) {
CheckVar(ex,data(c1));
+ Touch(ex,data(c1));
if (!isNil(y = val(data(c1))) && y != data(c1) && !equal(data(c2), y))
redefMsg(data(c1), NULL);
val(data(c1)) = data(c2);
@@ -229,6 +229,7 @@ any doDef(any ex) {
}
else {
x = cdr(x), Push(c3, EVAL(car(x)));
+ Touch(ex,data(c1));
if (!isNil(y = get(data(c1), data(c2))) && !equal(data(c3), y))
redefMsg(data(c1), data(c2));
put(data(c1), data(c2), data(c3));
diff --git a/src64/err.l b/src64/err.l
@@ -1,4 +1,4 @@
-# 24sep11abu
+# 16sep11abu
# (c) Software Lab. Alexander Burger
# Debug print routine
@@ -370,14 +370,6 @@
ld E A
jmp protErrEX
-(code 'checkVarCX 0)
- cmp C Nil # C < NIL ?
- jlt ret # Yes
- cmp C TSym # C > T ?
- jgt Ret # Yes
- ld E C
- jmp protErrEX
-
(code 'checkVarYX 0)
cmp Y Nil # Y < NIL ?
jlt ret # Yes
diff --git a/src64/flow.l b/src64/flow.l
@@ -1,4 +1,4 @@
-# 24sep11abu
+# 25sep11abu
# (c) Software Lab. Alexander Burger
(code 'redefMsgEC)
@@ -461,10 +461,6 @@
jnz symErrEX
sym E
jz symErrEX
- sym (E TAIL) # External symbol?
- if nz # Yes
- call dbTouchEX # Touch it
- end
link
push E # <L II/III> First symbol
ld Y (Y CDR) # Next arg
@@ -475,23 +471,28 @@
ld Y (Y CDR) # Third arg?
atom Y
if nz # No
- ld C (L II) # First symbol
- call checkVarCX # Check
- ld A (C) # Current value
+ ld E (L II) # First symbol
+ call checkVarEX # Check
+ sym (E TAIL) # External symbol?
+ if nz # Yes
+ call dbTouchEX # Touch it
+ end
+ ld A (E) # Current value
cmp A Nil # NIL?
if ne # NO
- cmp A C # Auto-symbol?
+ cmp A E # Auto-symbol?
if ne # No
+ ld E (L I) # New value
call equalAE_F # Changing?
if ne # Yes
- ld E C # Get sym
+ ld E (L II) # Get symbol
ld C 0 # No class
call redefMsgEC
+ ld E (L II) # Get symbol again
end
end
end
- ld E (L II) # Get symbol
- ld (E) (L I) # Set new value
+ ld (E) (L I) # Set symbol to new value
ld C 0 # No key
call putSrcEC_E # Put source information
else
@@ -500,6 +501,10 @@
tuck E # <L I> Third arg
link
ld E (L III) # First symbol
+ sym (E TAIL) # External symbol?
+ if nz # Yes
+ call dbTouchEX # Touch it
+ end
ld C (L II) # Second arg
call getEC_E # Current property value
cmp E Nil # NIL?
diff --git a/src64/tags b/src64/tags
@@ -408,13 +408,13 @@ anduAE_A ./big.l 325
anonymousX_FE ./io.l 2084
applyVarXYZ_E ./apply.l 358
applyXYZ_E ./apply.l 4
-argErrAX ./err.l 414
-argErrEX ./err.l 416
-atomErrAX ./err.l 452
-atomErrEX ./err.l 454
-badDotErrE ./err.l 561
-badFdErrEX ./err.l 533
-badInputErrB ./err.l 553
+argErrAX ./err.l 406
+argErrEX ./err.l 408
+atomErrAX ./err.l 444
+atomErrEX ./err.l 446
+badDotErrE ./err.l 553
+badFdErrEX ./err.l 525
+badInputErrB ./err.l 545
balanceCEY ./sym.l 902
balanceXY ./sym.l 884
begString ./main.l 2248
@@ -429,15 +429,15 @@ boxNum_A ./gc.l 821
boxNum_C ./gc.l 833
boxNum_E ./gc.l 845
boxNum_X ./gc.l 857
-brkErrX ./err.l 502
-brkLoadE_E ./flow.l 2857
+brkErrX ./err.l 494
+brkLoadE_E ./flow.l 2862
bufAoAC_C ./db.l 953
bufStringE_SZ ./io.l 1142
-byeE ./flow.l 3440
+byeE ./flow.l 3445
byteNumBCX_CX ./io.l 463
byteSymBCX_CX ./io.l 1291
caseDataA_AC ./sym.l 3345
-caught ./flow.l 2473
+caught ./flow.l 2478
cbl ./main.l 1851
cbl1 ./main.l 1884
cbl10 ./main.l 1920
@@ -463,19 +463,18 @@ cbl6 ./main.l 1904
cbl7 ./main.l 1908
cbl8 ./main.l 1912
cbl9 ./main.l 1916
-cellErrAX ./err.l 446
-cellErrEX ./err.l 448
+cellErrAX ./err.l 438
+cellErrEX ./err.l 440
charSymACX_CX ./io.l 1256
checkVarAX ./err.l 365
-checkVarCX ./err.l 373
-checkVarEX ./err.l 389
-checkVarYX ./err.l 381
+checkVarEX ./err.l 381
+checkVarYX ./err.l 373
chopExtNmX_E ./db.l 133
circE_YF ./main.l 744
cleanUpY ./db.l 567
closeAX ./io.l 5
-closeErrEX ./err.l 514
-closeErrX ./err.l 512
+closeErrEX ./err.l 506
+closeErrX ./err.l 504
closeInFileA ./io.l 142
closeOnExecAX ./io.l 43
closeOutFileA ./io.l 164
@@ -485,9 +484,9 @@ cmpLongAX_F ./sym.l 5
cmpNumAE_F ./big.l 1567
cmpUserAX_F ./subr.l 4122
cmpuAE_F ./big.l 1587
-cntErrAX ./err.l 426
-cntErrCX ./err.l 428
-cntErrEX ./err.l 430
+cntErrAX ./err.l 418
+cntErrCX ./err.l 420
+cntErrEX ./err.l 422
compareAE_F ./main.l 909
consAC_E ./gc.l 783
consA_A ./gc.l 527
@@ -526,34 +525,34 @@ cons_Z ./gc.l 515
ctOpenEXY ./io.l 1670
currFdX_C ./io.l 1333
currFd_C ./io.l 1337
-cutLocalCX ./flow.l 2825
+cutLocalCX ./flow.l 2830
dateXYZ_E ./main.l 2363
dbAEX ./db.l 1328
dbFetchEX ./db.l 1316
dbFileBlkY_AC ./db.l 246
-dbRdErr ./err.l 636
-dbSizErr ./err.l 648
+dbRdErr ./err.l 628
+dbSizErr ./err.l 640
dbSizeX_A ./db.l 1221
-dbSyncErrX ./err.l 605
+dbSyncErrX ./err.l 597
dbTouchEX ./db.l 1442
-dbWrErr ./err.l 642
+dbWrErr ./err.l 634
dbZapE ./db.l 1474
dbfBuf_AF ./db.l 51
-dbfErrX ./err.l 621
+dbfErrX ./err.l 613
dbgS ./err.l 5
decE_A ./big.l 1504
divDone ./big.l 1255
-divErrX ./err.l 470
+divErrX ./err.l 462
divUnder ./big.l 1261
divuAE_A ./big.l 1045
-dlErrX ./err.l 700
+dlErrX ./err.l 692
doAbs ./big.l 2731
doAccept ./net.l 139
doAdd ./big.l 2171
doAdr ./main.l 594
doAlarm ./main.l 471
doAll ./sym.l 780
-doAnd ./flow.l 1614
+doAnd ./flow.l 1619
doAny ./io.l 3965
doAppend ./subr.l 1338
doApply ./apply.l 713
@@ -564,19 +563,19 @@ doArrow ./subr.l 3913
doAs ./flow.l 144
doAsoq ./subr.l 3005
doAssoc ./subr.l 2970
-doAt ./flow.l 2099
+doAt ./flow.l 2104
doAtom ./subr.l 2385
-doBind ./flow.l 1352
+doBind ./flow.l 1357
doBitAnd ./big.l 2807
doBitOr ./big.l 2847
doBitQ ./big.l 2748
doBitXor ./big.l 2887
-doBool ./flow.l 1714
-doBox ./flow.l 819
+doBool ./flow.l 1719
+doBox ./flow.l 824
doBoxQ ./sym.l 1110
-doBreak ./flow.l 2849
+doBreak ./flow.l 2854
doBy ./apply.l 1669
-doBye ./flow.l 3428
+doBye ./flow.l 3433
doCaaaar ./subr.l 271
doCaaadr ./subr.l 288
doCaaar ./subr.l 99
@@ -591,10 +590,10 @@ doCaddar ./subr.l 409
doCadddr ./subr.l 435
doCaddr ./subr.l 156
doCadr ./subr.l 45
-doCall ./flow.l 3080
+doCall ./flow.l 3085
doCar ./subr.l 5
-doCase ./flow.l 1955
-doCatch ./flow.l 2457
+doCase ./flow.l 1960
+doCatch ./flow.l 2462
doCd ./main.l 2685
doCdaaar ./subr.l 464
doCdaadr ./subr.l 487
@@ -620,12 +619,12 @@ doClip ./subr.l 1799
doClose ./io.l 4370
doCmd ./main.l 2912
doCnt ./apply.l 1413
-doCo ./flow.l 2538
+doCo ./flow.l 2543
doCol ./sym.l 3030
doCommit ./db.l 1495
doCon ./subr.l 725
doConc ./subr.l 781
-doCond ./flow.l 1909
+doCond ./flow.l 1914
doConnect ./net.l 201
doCons ./subr.l 747
doCopy ./subr.l 1225
@@ -634,7 +633,7 @@ doCtty ./main.l 2710
doCut ./sym.l 1907
doDate ./main.l 2424
doDbck ./db.l 2104
-doDe ./flow.l 529
+doDe ./flow.l 534
doDec ./big.l 2323
doDef ./flow.l 453
doDefault ./sym.l 1771
@@ -644,9 +643,9 @@ doDelq ./subr.l 1452
doDiff ./subr.l 2589
doDir ./main.l 2843
doDiv ./big.l 2513
-doDm ./flow.l 541
-doDo ./flow.l 2131
-doE ./flow.l 2912
+doDm ./flow.l 546
+doDo ./flow.l 2136
+doE ./flow.l 2917
doEcho ./io.l 4401
doEnv ./main.l 606
doEof ./io.l 3524
@@ -661,22 +660,22 @@ doEval ./flow.l 180
doExt ./io.l 5129
doExtQ ./sym.l 1145
doExtern ./sym.l 1011
-doExtra ./flow.l 1259
+doExtra ./flow.l 1264
doExtract ./apply.l 1218
doFifo ./sym.l 2073
doFile ./main.l 2790
doFill ./subr.l 3240
doFilter ./apply.l 1161
doFin ./subr.l 2033
-doFinally ./flow.l 2514
+doFinally ./flow.l 2519
doFind ./apply.l 1322
doFish ./apply.l 1613
doFlgQ ./subr.l 2445
doFlip ./subr.l 1699
doFlush ./io.l 5104
doFold ./sym.l 3485
-doFor ./flow.l 2220
-doFork ./flow.l 3254
+doFor ./flow.l 2225
+doFork ./flow.l 3259
doFormat ./big.l 2089
doFree ./db.l 2046
doFrom ./io.l 3543
@@ -699,26 +698,26 @@ doHide ./sym.l 1078
doHost ./net.l 184
doId ./db.l 1025
doIdx ./sym.l 2147
-doIf ./flow.l 1795
-doIf2 ./flow.l 1814
-doIfn ./flow.l 1855
+doIf ./flow.l 1800
+doIf2 ./flow.l 1819
+doIfn ./flow.l 1860
doIn ./io.l 4188
doInc ./big.l 2256
doIndex ./subr.l 2637
doInfo ./main.l 2747
doIntern ./sym.l 986
-doIpid ./flow.l 3199
-doIsa ./flow.l 956
-doJob ./flow.l 1419
+doIpid ./flow.l 3204
+doIsa ./flow.l 961
+doJob ./flow.l 1424
doJournal ./db.l 968
doKey ./io.l 3376
-doKill ./flow.l 3231
+doKill ./flow.l 3236
doLast ./subr.l 2044
doLe ./subr.l 2237
doLe0 ./big.l 2693
doLength ./subr.l 2741
-doLet ./flow.l 1469
-doLetQ ./flow.l 1530
+doLet ./flow.l 1474
+doLetQ ./flow.l 1535
doLieu ./db.l 1154
doLine ./io.l 3699
doLines ./io.l 3852
@@ -729,7 +728,7 @@ doListen ./net.l 151
doLit ./flow.l 155
doLoad ./io.l 4165
doLock ./db.l 1182
-doLoop ./flow.l 2163
+doLoop ./flow.l 2168
doLowQ ./sym.l 3357
doLowc ./sym.l 3387
doLstQ ./subr.l 2415
@@ -752,8 +751,8 @@ doMaxi ./apply.l 1511
doMember ./subr.l 2455
doMemq ./subr.l 2477
doMeta ./sym.l 3277
-doMeth ./flow.l 1084
-doMethod ./flow.l 1048
+doMeth ./flow.l 1089
+doMethod ./flow.l 1053
doMin ./subr.l 2356
doMini ./apply.l 1562
doMix ./subr.l 1260
@@ -765,15 +764,15 @@ doNEq0 ./subr.l 2189
doNEqT ./subr.l 2198
doNEqual ./subr.l 2144
doName ./sym.l 502
-doNand ./flow.l 1649
+doNand ./flow.l 1654
doNative ./main.l 1382
doNeed ./subr.l 919
-doNew ./flow.l 830
+doNew ./flow.l 835
doNext ./main.l 2293
-doNil ./flow.l 1732
-doNond ./flow.l 1932
-doNor ./flow.l 1670
-doNot ./flow.l 1722
+doNil ./flow.l 1737
+doNond ./flow.l 1937
+doNor ./flow.l 1675
+doNot ./flow.l 1727
doNth ./subr.l 685
doNumQ ./subr.l 2426
doOff ./sym.l 1708
@@ -782,9 +781,9 @@ doOn ./sym.l 1693
doOnOff ./sym.l 1723
doOne ./sym.l 1756
doOpen ./io.l 4332
-doOpid ./flow.l 3215
+doOpid ./flow.l 3220
doOpt ./main.l 3033
-doOr ./flow.l 1630
+doOr ./flow.l 1635
doOut ./io.l 4208
doPack ./sym.l 1255
doPair ./subr.l 2394
@@ -806,9 +805,9 @@ doPrint ./io.l 5068
doPrintln ./io.l 5099
doPrintsp ./io.l 5084
doPrior ./subr.l 2713
-doProg ./flow.l 1750
-doProg1 ./flow.l 1758
-doProg2 ./flow.l 1775
+doProg ./flow.l 1755
+doProg1 ./flow.l 1763
+doProg2 ./flow.l 1780
doProp ./sym.l 2907
doPropCol ./sym.l 3054
doProtect ./main.l 516
@@ -839,7 +838,7 @@ doSect ./subr.l 2541
doSeed ./big.l 2961
doSeek ./apply.l 1275
doSemicol ./sym.l 2952
-doSend ./flow.l 1128
+doSend ./flow.l 1133
doSeq ./db.l 1081
doSet ./sym.l 1592
doSetCol ./sym.l 2981
@@ -853,7 +852,7 @@ doSpQ ./sym.l 719
doSpace ./io.l 5046
doSplit ./subr.l 1592
doStack ./main.l 555
-doState ./flow.l 1999
+doState ./flow.l 2004
doStem ./subr.l 1989
doStr ./io.l 4019
doStrQ ./sym.l 1124
@@ -861,50 +860,50 @@ doStrip ./subr.l 1576
doSub ./big.l 2209
doSubQ ./sym.l 1554
doSum ./apply.l 1460
-doSuper ./flow.l 1215
+doSuper ./flow.l 1220
doSym ./io.l 4005
doSymQ ./subr.l 2434
doSymbols ./sym.l 934
doSync ./io.l 3188
-doSys ./flow.l 3051
-doT ./flow.l 1741
+doSys ./flow.l 3056
+doT ./flow.l 1746
doTail ./subr.l 1911
doTell ./io.l 3260
doText ./sym.l 1383
-doThrow ./flow.l 2483
-doTick ./flow.l 3167
+doThrow ./flow.l 2488
+doTick ./flow.l 3172
doTill ./io.l 3610
doTime ./main.l 2557
doTouch ./sym.l 1160
-doTrace ./flow.l 2951
+doTrace ./flow.l 2956
doTrim ./subr.l 1759
-doTry ./flow.l 1169
-doType ./flow.l 909
+doTry ./flow.l 1174
+doType ./flow.l 914
doUdp ./net.l 268
doUnify ./subr.l 3935
-doUnless ./flow.l 1891
-doUntil ./flow.l 2075
+doUnless ./flow.l 1896
+doUntil ./flow.l 2080
doUp ./main.l 697
doUppQ ./sym.l 3372
doUppc ./sym.l 3436
-doUse ./flow.l 1563
+doUse ./flow.l 1568
doUsec ./main.l 2662
doVal ./sym.l 1573
doVersion ./main.l 3047
doWait ./io.l 3150
-doWhen ./flow.l 1874
-doWhile ./flow.l 2051
+doWhen ./flow.l 1879
+doWhile ./flow.l 2056
doWipe ./sym.l 3232
-doWith ./flow.l 1322
+doWith ./flow.l 1327
doWr ./io.l 5229
doXchg ./sym.l 1648
-doXor ./flow.l 1691
-doYield ./flow.l 2707
+doXor ./flow.l 1696
+doYield ./flow.l 2712
doYoke ./subr.l 1196
doZap ./sym.l 1174
doZero ./sym.l 1741
endString_E ./main.l 2259
-eofErr ./err.l 542
+eofErr ./err.l 534
eolA_F ./io.l 3684
equalAE_F ./main.l 776
erOpenEXY ./io.l 1628
@@ -916,16 +915,16 @@ evCntEX_FE ./main.l 2187
evCntXY_FE ./main.l 2185
evExprCE_E ./main.l 1107
evListE_E ./main.l 1251
-evMethodACXYZ_E ./flow.l 640
+evMethodACXYZ_E ./flow.l 645
evSymE_E ./main.l 2162
evSymX_E ./main.l 2157
evSymY_E ./main.l 2160
execE ./main.l 2071
execErrS ./main.l 187
-extErrEX ./err.l 442
+extErrEX ./err.l 434
extNmCE_X ./db.l 64
externX_E ./sym.l 266
-extraXY_FCYZ ./flow.l 1286
+extraXY_FCYZ ./flow.l 1291
fdRdSetCZL ./io.l 2718
fdSetCL_X ./io.l 2706
fdSetC_Y ./io.l 3309
@@ -935,7 +934,7 @@ fileObjE_AC ./db.l 237
fileObjX_AC ./db.l 211
fillE_FE ./subr.l 3258
findSymX_E ./sym.l 257
-finishE ./flow.l 3452
+finishE ./flow.l 3457
firstByteA_B ./sym.l 673
firstCharE_A ./sym.l 683
fishAXY ./apply.l 1640
@@ -945,8 +944,8 @@ fmtNum0AE_E ./big.l 1794
fmtNumAE_E ./big.l 1797
fmtScaleCX_CX ./big.l 2061
fmtWordACX_CX ./big.l 2046
-forkErrX ./err.l 523
-forkLispX_FE ./flow.l 3267
+forkErrX ./err.l 515
+forkLispX_FE ./flow.l 3272
fsyncDB ./db.l 929
funqE_FE ./main.l 2095
gc ./gc.l 65
@@ -963,7 +962,7 @@ giveupX ./main.l 180
halfA_A ./big.l 87
heapAlloc ./main.l 217
iSignalCE ./main.l 192
-idErrXL ./err.l 631
+idErrXL ./err.l 623
idxDelXY_E ./sym.l 2277
idxGetXY_E ./sym.l 2190
idxPutXY_E ./sym.l 2207
@@ -976,47 +975,47 @@ initInFileCA_A ./io.l 67
initOutFileA_A ./io.l 106
initSeedE_E ./big.l 2927
internEXY_FE ./sym.l 75
-ipBindErrX ./err.l 675
-ipGetsocknameErrX ./err.l 665
-ipListenErrX ./err.l 680
-ipSetsockoptErrX ./err.l 670
-ipSocketErrX ./err.l 660
+ipBindErrX ./err.l 667
+ipGetsocknameErrX ./err.l 657
+ipListenErrX ./err.l 672
+ipSetsockoptErrX ./err.l 662
+ipSocketErrX ./err.l 652
isBlankE_F ./sym.l 696
isInternEXY_F ./sym.l 37
isLetterOrDigitA_F ./sym.l 3550
isLifeE_F ./db.l 525
-isaCE_F ./flow.l 1007
-jnlErrX ./err.l 626
+isaCE_F ./flow.l 1012
+jnlErrX ./err.l 618
jnlFileno_A ./db.l 344
-joinLocalCX ./flow.l 2838
+joinLocalCX ./flow.l 2843
lisp ./main.l 2025
loadAllX_E ./main.l 162
loadBEX_E ./io.l 4072
-lockErr ./err.l 615
+lockErr ./err.l 607
lockFileAC ./io.l 28
lockJnl ./db.l 352
logBlock ./db.l 432
logFileno_A ./db.l 348
lookupCE_E ./subr.l 3869
-loopX ./flow.l 2168
-loopY_FE ./flow.l 2407
-lstErrAX ./err.l 458
-lstErrEX ./err.l 460
+loopX ./flow.l 2173
+loopY_FE ./flow.l 2412
+lstErrAX ./err.l 450
+lstErrEX ./err.l 452
lupCE_E ./subr.l 3812
main ./main.l 33
-makeErrX ./err.l 479
+makeErrX ./err.l 471
markE ./gc.l 5
matchCE_F ./subr.l 3144
memberXY_FY ./main.l 1071
metaCX_E ./sym.l 3319
-methodEY_FCYZ ./flow.l 786
+methodEY_FCYZ ./flow.l 791
mkCharA_A ./sym.l 573
mkStrEZ_A ./sym.l 650
mkStrE_E ./sym.l 623
msec_A ./main.l 2273
-msgErrAX ./err.l 496
-msgErrEX ./err.l 498
-msgErrYX ./err.l 494
+msgErrAX ./err.l 488
+msgErrEX ./err.l 490
+msgErrYX ./err.l 486
muluAE_A ./big.l 859
nameA_A ./sym.l 469
nameE_E ./sym.l 477
@@ -1031,12 +1030,12 @@ needVarEX ./err.l 356
newBlock_X ./db.l 449
newIdEX_X ./db.l 492
newline ./io.l 4657
-noFdErrX ./err.l 537
+noFdErrX ./err.l 529
nonblockingA_A ./io.l 51
-numErrAX ./err.l 420
-numErrEX ./err.l 422
+numErrAX ./err.l 412
+numErrEX ./err.l 414
oct3C_CA ./db.l 180
-openErrEX ./err.l 508
+openErrEX ./err.l 500
oruAE_A ./big.l 394
outAoA ./io.l 4706
outNameE ./io.l 4730
@@ -1052,7 +1051,7 @@ packOctACX_CX ./db.l 120
parseBCE_E ./io.l 3893
pathStringE_SZ ./io.l 1172
pico ./glob.l 142
-pipeErrX ./err.l 518
+pipeErrX ./err.l 510
popCtlFiles ./io.l 1961
popErrFiles ./io.l 1954
popInFiles ./io.l 1863
@@ -1069,7 +1068,7 @@ prinE_E ./io.l 4967
printE ./io.l 4754
printE_E ./io.l 4748
propEC_E ./sym.l 2730
-protErrEX ./err.l 394
+protErrEX ./err.l 386
pushCtlFilesY ./io.l 1858
pushErrFilesY ./io.l 1853
pushInFilesY ./io.l 1818
@@ -1098,27 +1097,27 @@ readA_E ./io.l 2308
readC_E ./io.l 2492
redefMsgEC ./flow.l 4
redefineCEX ./flow.l 109
-reentErrEX ./err.l 484
+reentErrEX ./err.l 476
remDone ./big.l 1479
remUnder ./big.l 1485
remuAE_A ./big.l 1266
-renErrEX ./err.l 475
+renErrEX ./err.l 467
restart ./main.l 154
-resumeCoroutine ./flow.l 2564
-ret ./err.l 708
-retE_E ./err.l 731
-retNil ./err.l 725
-retNull ./err.l 722
-retT ./err.l 728
-retc ./err.l 710
-retnc ./err.l 713
-retnz ./err.l 719
-retz ./err.l 716
+resumeCoroutine ./flow.l 2569
+ret ./err.l 700
+retE_E ./err.l 723
+retNil ./err.l 717
+retNull ./err.l 714
+retT ./err.l 720
+retc ./err.l 702
+retnc ./err.l 705
+retnz ./err.l 711
+retz ./err.l 708
rewindLog ./db.l 925
runE_E ./main.l 2083
rwUnlockDbA ./db.l 269
s_isdirS_F sys/x86-64.linux.code.l 16
-selectErrX ./err.l 566
+selectErrX ./err.l 558
serverEY_F ./net.l 235
setAdrAS ./db.l 36
setAdrAZ ./db.l 22
@@ -1142,76 +1141,76 @@ slowNbC_FA ./io.l 207
slowZ_F ./io.l 185
space ./io.l 4661
stdinByte_A ./io.l 425
-stkErr ./err.l 403
-stkErrE ./err.l 405
-stkErrEX ./err.l 409
-stkErrX ./err.l 407
+stkErr ./err.l 395
+stkErrE ./err.l 397
+stkErrEX ./err.l 401
+stkErrX ./err.l 399
subAE_A ./big.l 1542
subStrAE_F ./sym.l 1470
subuAE_A ./big.l 682
-suparErrE ./err.l 548
+suparErrE ./err.l 540
symByteCX_FACX ./io.l 1088
symCharCX_FACX ./io.l 1109
-symErrAX ./err.l 434
-symErrEX ./err.l 438
-symErrYX ./err.l 436
-symNsErrEX ./err.l 398
+symErrAX ./err.l 426
+symErrEX ./err.l 430
+symErrYX ./err.l 428
+symNsErrEX ./err.l 390
symToNumXA_FE ./big.l 1681
tcSetC ./main.l 386
tcpAcceptA_FE ./net.l 104
tellBegZ_Z ./io.l 1004
tellEndAZ ./io.l 1011
-tellErr ./err.l 654
+tellErr ./err.l 646
tenfoldA_A ./big.l 157
testEscA_F ./io.l 2050
-throwErrZX ./flow.l 2508
+throwErrZX ./flow.l 2513
tmDateC_E ./main.l 2353
tmTimeY_E ./main.l 2540
tokenCE_E ./io.l 2522
-trSyncErrX ./err.l 610
-traceCY ./flow.l 3023
+trSyncErrX ./err.l 602
+traceCY ./flow.l 3028
trimE_E ./subr.l 1769
-truncErrX ./err.l 600
+truncErrX ./err.l 592
truncLog ./db.l 944
tryLockCE_FA ./db.l 299
twiceA_A ./big.l 47
twiceBigA_A ./big.l 57
-udpOvflErr ./err.l 685
+udpOvflErr ./err.l 677
unLockFileAC ./io.l 15
unLockJnl ./db.l 357
-undefinedCE ./err.l 692
-undefinedCX ./err.l 694
-undefinedEX ./err.l 696
+undefinedCE ./err.l 684
+undefinedCX ./err.l 686
+undefinedEX ./err.l 688
uniFillE_E ./subr.l 3883
unifyCEYZ_F ./subr.l 3361
uninternEXY ./sym.l 356
unsync ./io.l 1058
unwindC_Z ./err.l 165
-varErrAX ./err.l 464
-varErrEX ./err.l 466
+varErrAX ./err.l 456
+varErrEX ./err.l 458
waitFdCEX_A ./io.l 2764
-waitPidErrX ./err.l 528
+waitPidErrX ./err.l 520
wifsignaledS_F sys/x86-64.linux.code.l 27
wifstoppedS_F sys/x86-64.linux.code.l 22
wipeE ./sym.l 3254
wrBlockZ ./db.l 398
wrBytesCEX_F ./io.l 316
-wrBytesErr ./err.l 571
+wrBytesErr ./err.l 563
wrChildCXY ./io.l 352
-wrChildErr ./err.l 577
-wrJnlErr ./err.l 588
+wrChildErr ./err.l 569
+wrJnlErr ./err.l 580
wrLockDb ./db.l 262
wrLockFileC ./io.l 23
-wrLogErr ./err.l 594
+wrLogErr ./err.l 586
wrOpenEXY ./io.l 1495
wrSetCL_F ./io.l 2737
-wrSyncErrX ./err.l 583
+wrSyncErrX ./err.l 575
wtermsigS_A sys/x86-64.linux.code.l 34
xCntAX_FA ./main.l 2207
xCntCX_FC ./main.l 2198
xCntEX_FE ./main.l 2189
xSymE_E ./main.l 2164
xoruAE_A ./big.l 465
-yieldErrEX ./err.l 490
-yieldErrX ./err.l 488
+yieldErrEX ./err.l 482
+yieldErrX ./err.l 480
zapZeroA_A ./big.l 6
