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 1fcff285b756508b1585ea0bbef8b5ef987270be
parent 65fec883782f682d2810b7226a6f554d5eaa3f42
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu, 29 Sep 2011 07:50:34 +0200

Don't reset current namespace to 'pico' in error handler
Diffstat:
Msrc64/err.l | 3+--
Msrc64/tags | 182++++++++++++++++++++++++++++++++++++++++----------------------------------------
2 files changed, 92 insertions(+), 93 deletions(-)

diff --git a/src64/err.l b/src64/err.l @@ -1,4 +1,4 @@ -# 16sep11abu +# 29sep11abu # (c) Software Lab. Alexander Burger # Debug print routine @@ -76,7 +76,6 @@ pop E # Retrieve reason end ld (Chr) 0 # Init globals - ld (Intern) pico ld (ExtN) 0 ld (Break) 0 ld (Alarm) 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 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 +argErrAX ./err.l 405 +argErrEX ./err.l 407 +atomErrAX ./err.l 443 +atomErrEX ./err.l 445 +badDotErrE ./err.l 552 +badFdErrEX ./err.l 524 +badInputErrB ./err.l 544 balanceCEY ./sym.l 902 balanceXY ./sym.l 884 begString ./main.l 2248 @@ -429,7 +429,7 @@ boxNum_A ./gc.l 821 boxNum_C ./gc.l 833 boxNum_E ./gc.l 845 boxNum_X ./gc.l 857 -brkErrX ./err.l 494 +brkErrX ./err.l 493 brkLoadE_E ./flow.l 2862 bufAoAC_C ./db.l 953 bufStringE_SZ ./io.l 1142 @@ -463,18 +463,18 @@ cbl6 ./main.l 1904 cbl7 ./main.l 1908 cbl8 ./main.l 1912 cbl9 ./main.l 1916 -cellErrAX ./err.l 438 -cellErrEX ./err.l 440 +cellErrAX ./err.l 437 +cellErrEX ./err.l 439 charSymACX_CX ./io.l 1256 -checkVarAX ./err.l 365 -checkVarEX ./err.l 381 -checkVarYX ./err.l 373 +checkVarAX ./err.l 364 +checkVarEX ./err.l 380 +checkVarYX ./err.l 372 chopExtNmX_E ./db.l 133 circE_YF ./main.l 744 cleanUpY ./db.l 567 closeAX ./io.l 5 -closeErrEX ./err.l 506 -closeErrX ./err.l 504 +closeErrEX ./err.l 505 +closeErrX ./err.l 503 closeInFileA ./io.l 142 closeOnExecAX ./io.l 43 closeOutFileA ./io.l 164 @@ -484,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 418 -cntErrCX ./err.l 420 -cntErrEX ./err.l 422 +cntErrAX ./err.l 417 +cntErrCX ./err.l 419 +cntErrEX ./err.l 421 compareAE_F ./main.l 909 consAC_E ./gc.l 783 consA_A ./gc.l 527 @@ -530,22 +530,22 @@ dateXYZ_E ./main.l 2363 dbAEX ./db.l 1328 dbFetchEX ./db.l 1316 dbFileBlkY_AC ./db.l 246 -dbRdErr ./err.l 628 -dbSizErr ./err.l 640 +dbRdErr ./err.l 627 +dbSizErr ./err.l 639 dbSizeX_A ./db.l 1221 -dbSyncErrX ./err.l 597 +dbSyncErrX ./err.l 596 dbTouchEX ./db.l 1442 -dbWrErr ./err.l 634 +dbWrErr ./err.l 633 dbZapE ./db.l 1474 dbfBuf_AF ./db.l 51 -dbfErrX ./err.l 613 +dbfErrX ./err.l 612 dbgS ./err.l 5 decE_A ./big.l 1504 divDone ./big.l 1255 -divErrX ./err.l 462 +divErrX ./err.l 461 divUnder ./big.l 1261 divuAE_A ./big.l 1045 -dlErrX ./err.l 692 +dlErrX ./err.l 691 doAbs ./big.l 2731 doAccept ./net.l 139 doAdd ./big.l 2171 @@ -903,7 +903,7 @@ doYoke ./subr.l 1196 doZap ./sym.l 1174 doZero ./sym.l 1741 endString_E ./main.l 2259 -eofErr ./err.l 534 +eofErr ./err.l 533 eolA_F ./io.l 3684 equalAE_F ./main.l 776 erOpenEXY ./io.l 1628 @@ -921,7 +921,7 @@ evSymX_E ./main.l 2157 evSymY_E ./main.l 2160 execE ./main.l 2071 execErrS ./main.l 187 -extErrEX ./err.l 434 +extErrEX ./err.l 433 extNmCE_X ./db.l 64 externX_E ./sym.l 266 extraXY_FCYZ ./flow.l 1291 @@ -944,7 +944,7 @@ fmtNum0AE_E ./big.l 1794 fmtNumAE_E ./big.l 1797 fmtScaleCX_CX ./big.l 2061 fmtWordACX_CX ./big.l 2046 -forkErrX ./err.l 515 +forkErrX ./err.l 514 forkLispX_FE ./flow.l 3272 fsyncDB ./db.l 929 funqE_FE ./main.l 2095 @@ -962,7 +962,7 @@ giveupX ./main.l 180 halfA_A ./big.l 87 heapAlloc ./main.l 217 iSignalCE ./main.l 192 -idErrXL ./err.l 623 +idErrXL ./err.l 622 idxDelXY_E ./sym.l 2277 idxGetXY_E ./sym.l 2190 idxPutXY_E ./sym.l 2207 @@ -975,23 +975,23 @@ initInFileCA_A ./io.l 67 initOutFileA_A ./io.l 106 initSeedE_E ./big.l 2927 internEXY_FE ./sym.l 75 -ipBindErrX ./err.l 667 -ipGetsocknameErrX ./err.l 657 -ipListenErrX ./err.l 672 -ipSetsockoptErrX ./err.l 662 -ipSocketErrX ./err.l 652 +ipBindErrX ./err.l 666 +ipGetsocknameErrX ./err.l 656 +ipListenErrX ./err.l 671 +ipSetsockoptErrX ./err.l 661 +ipSocketErrX ./err.l 651 isBlankE_F ./sym.l 696 isInternEXY_F ./sym.l 37 isLetterOrDigitA_F ./sym.l 3550 isLifeE_F ./db.l 525 isaCE_F ./flow.l 1012 -jnlErrX ./err.l 618 +jnlErrX ./err.l 617 jnlFileno_A ./db.l 344 joinLocalCX ./flow.l 2843 lisp ./main.l 2025 loadAllX_E ./main.l 162 loadBEX_E ./io.l 4072 -lockErr ./err.l 607 +lockErr ./err.l 606 lockFileAC ./io.l 28 lockJnl ./db.l 352 logBlock ./db.l 432 @@ -999,11 +999,11 @@ logFileno_A ./db.l 348 lookupCE_E ./subr.l 3869 loopX ./flow.l 2173 loopY_FE ./flow.l 2412 -lstErrAX ./err.l 450 -lstErrEX ./err.l 452 +lstErrAX ./err.l 449 +lstErrEX ./err.l 451 lupCE_E ./subr.l 3812 main ./main.l 33 -makeErrX ./err.l 471 +makeErrX ./err.l 470 markE ./gc.l 5 matchCE_F ./subr.l 3144 memberXY_FY ./main.l 1071 @@ -1013,9 +1013,9 @@ mkCharA_A ./sym.l 573 mkStrEZ_A ./sym.l 650 mkStrE_E ./sym.l 623 msec_A ./main.l 2273 -msgErrAX ./err.l 488 -msgErrEX ./err.l 490 -msgErrYX ./err.l 486 +msgErrAX ./err.l 487 +msgErrEX ./err.l 489 +msgErrYX ./err.l 485 muluAE_A ./big.l 859 nameA_A ./sym.l 469 nameE_E ./sym.l 477 @@ -1023,19 +1023,19 @@ nameX_X ./sym.l 485 nameY_Y ./sym.l 493 natRetACE_CE ./main.l 1668 needC ./gc.l 54 -needSymAX ./err.l 323 -needSymEX ./err.l 335 -needVarAX ./err.l 346 -needVarEX ./err.l 356 +needSymAX ./err.l 322 +needSymEX ./err.l 334 +needVarAX ./err.l 345 +needVarEX ./err.l 355 newBlock_X ./db.l 449 newIdEX_X ./db.l 492 newline ./io.l 4657 -noFdErrX ./err.l 529 +noFdErrX ./err.l 528 nonblockingA_A ./io.l 51 -numErrAX ./err.l 412 -numErrEX ./err.l 414 +numErrAX ./err.l 411 +numErrEX ./err.l 413 oct3C_CA ./db.l 180 -openErrEX ./err.l 500 +openErrEX ./err.l 499 oruAE_A ./big.l 394 outAoA ./io.l 4706 outNameE ./io.l 4730 @@ -1051,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 510 +pipeErrX ./err.l 509 popCtlFiles ./io.l 1961 popErrFiles ./io.l 1954 popInFiles ./io.l 1863 @@ -1068,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 386 +protErrEX ./err.l 385 pushCtlFilesY ./io.l 1858 pushErrFilesY ./io.l 1853 pushInFilesY ./io.l 1818 @@ -1097,27 +1097,27 @@ readA_E ./io.l 2308 readC_E ./io.l 2492 redefMsgEC ./flow.l 4 redefineCEX ./flow.l 109 -reentErrEX ./err.l 476 +reentErrEX ./err.l 475 remDone ./big.l 1479 remUnder ./big.l 1485 remuAE_A ./big.l 1266 -renErrEX ./err.l 467 +renErrEX ./err.l 466 restart ./main.l 154 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 +ret ./err.l 699 +retE_E ./err.l 722 +retNil ./err.l 716 +retNull ./err.l 713 +retT ./err.l 719 +retc ./err.l 701 +retnc ./err.l 704 +retnz ./err.l 710 +retz ./err.l 707 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 558 +selectErrX ./err.l 557 serverEY_F ./net.l 235 setAdrAS ./db.l 36 setAdrAZ ./db.l 22 @@ -1141,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 395 -stkErrE ./err.l 397 -stkErrEX ./err.l 401 -stkErrX ./err.l 399 +stkErr ./err.l 394 +stkErrE ./err.l 396 +stkErrEX ./err.l 400 +stkErrX ./err.l 398 subAE_A ./big.l 1542 subStrAE_F ./sym.l 1470 subuAE_A ./big.l 682 -suparErrE ./err.l 540 +suparErrE ./err.l 539 symByteCX_FACX ./io.l 1088 symCharCX_FACX ./io.l 1109 -symErrAX ./err.l 426 -symErrEX ./err.l 430 -symErrYX ./err.l 428 -symNsErrEX ./err.l 390 +symErrAX ./err.l 425 +symErrEX ./err.l 429 +symErrYX ./err.l 427 +symNsErrEX ./err.l 389 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 646 +tellErr ./err.l 645 tenfoldA_A ./big.l 157 testEscA_F ./io.l 2050 throwErrZX ./flow.l 2513 tmDateC_E ./main.l 2353 tmTimeY_E ./main.l 2540 tokenCE_E ./io.l 2522 -trSyncErrX ./err.l 602 +trSyncErrX ./err.l 601 traceCY ./flow.l 3028 trimE_E ./subr.l 1769 -truncErrX ./err.l 592 +truncErrX ./err.l 591 truncLog ./db.l 944 tryLockCE_FA ./db.l 299 twiceA_A ./big.l 47 twiceBigA_A ./big.l 57 -udpOvflErr ./err.l 677 +udpOvflErr ./err.l 676 unLockFileAC ./io.l 15 unLockJnl ./db.l 357 -undefinedCE ./err.l 684 -undefinedCX ./err.l 686 -undefinedEX ./err.l 688 +undefinedCE ./err.l 683 +undefinedCX ./err.l 685 +undefinedEX ./err.l 687 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 456 -varErrEX ./err.l 458 +unwindC_Z ./err.l 164 +varErrAX ./err.l 455 +varErrEX ./err.l 457 waitFdCEX_A ./io.l 2764 -waitPidErrX ./err.l 520 +waitPidErrX ./err.l 519 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 563 +wrBytesErr ./err.l 562 wrChildCXY ./io.l 352 -wrChildErr ./err.l 569 -wrJnlErr ./err.l 580 +wrChildErr ./err.l 568 +wrJnlErr ./err.l 579 wrLockDb ./db.l 262 wrLockFileC ./io.l 23 -wrLogErr ./err.l 586 +wrLogErr ./err.l 585 wrOpenEXY ./io.l 1495 wrSetCL_F ./io.l 2737 -wrSyncErrX ./err.l 575 +wrSyncErrX ./err.l 574 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 482 -yieldErrX ./err.l 480 +yieldErrEX ./err.l 481 +yieldErrX ./err.l 479 zapZeroA_A ./big.l 6