picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit d012157bf97a0e26702a47c04ec086468bd7e983
parent 43f85f67ccd8fb8f07e7ef5510681a42eb1095d6
Author: Alexander Burger <abu@software-lab.de>
Date:   Sun, 25 Sep 2011 09:42:24 +0200

put/def continued
Diffstat:
Mlib/tags | 122++++++++++++++++++++++++++++++++++++++++----------------------------------------
Msrc/flow.c | 5+++--
Msrc64/err.l | 10+---------
Msrc64/flow.l | 29+++++++++++++++++------------
Msrc64/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